Clean up

src/Mima/Vm/Flags.hs

@@ -1,13 +1,10 @@
 {-# LANGUAGE OverloadedStrings #-}
 module Mima.Vm.Flags
   ( Flags(..)
-  -- * Methods for interacting with 'Flags'
   , readonlyAt
   , executableAt
   , breakpointAt
-  -- * Conversion methods for 'Metadata'
   , flagsFromMetadata
-  , sampleMeta
   ) where
 
 import qualified Data.Aeson.Types as A
@@ -15,13 +12,11 @@ import qualified Data.Map         as Map
 import qualified Data.Set         as Set
 import qualified Data.Text        as T
 
-import           Mima.Run
 import           Mima.Vm.Metadata
-import           Mima.Vm.Storage
 import           Mima.Vm.Word
 
 -- | A collection of parsed flags in a more efficient representation than
---   'Metadata'
+-- 'Metadata'
 data Flags = Flags
   { flagReadonly   :: Set.Set MimaAddress
   , flagExecutable :: Set.Set MimaAddress
@@ -38,9 +33,8 @@ instance Monoid Flags where
 readonlyAt :: Flags -> MimaAddress -> Bool
 readonlyAt flags address = Set.member address (flagReadonly flags)
 
--- | Checks if a given address has the "executable" flag set.
---   If the given 'Flags' has no 'flagExecutable', this method will
---   return 'True'.
+-- | Checks if a given address has the "executable" flag set. If the given
+-- 'Flags' has no 'flagExecutable', this method will return 'True'.
 executableAt :: Flags -> MimaAddress -> Bool
 executableAt flags address
   | Set.null set = True
@@ -52,7 +46,6 @@ executableAt flags address
 breakpointAt :: Flags -> MimaAddress -> Bool
 breakpointAt flags address = Set.member address (flagBreakpoint flags)
 
-
 {- Conversion from Metadata -}
 
 flagsFromMetadata :: Metadata -> Flags
@@ -61,18 +54,9 @@ flagsFromMetadata metadata =
   where
     ranges = mdLocal metadata
     rangesToMap key = mconcat . reverse . map (rangeToMap key) $ ranges
-    flagSet = Map.keysSet . Map.filter valueToBool . rangesToMap
+    flagSet = Map.keysSet . Map.filter (/= A.Bool False) . rangesToMap
 
 rangeToMap :: T.Text -> Range -> Map.Map MimaAddress A.Value
 rangeToMap key range = case getMetaInfo range Map.!? key of
   Nothing -> mempty
   Just v  -> Map.fromList $ zip (getAddresses range) (repeat v)
-
-valueToBool :: A.Value -> Bool
-valueToBool (A.Bool False) = False
-valueToBool _              = True
-
-sampleMeta :: Run Flags
-sampleMeta = do
-  m <- loadMetadata "test/files/FlaggyMetadataFile.json"
-  pure $ flagsFromMetadata m

src/Mima/Vm/Metadata.hs

@@ -3,8 +3,8 @@
 module Mima.Vm.Metadata
   ( MetaInfo
   , Range(..)
-  , getMetaInfo
   , getAddresses
+  , getMetaInfo
   , Metadata(..)
   ) where
 
@@ -25,7 +25,7 @@ data Range
   deriving Show
 
 getAddresses :: Range -> [MimaAddress]
-getAddresses (RangeAt _ address)        = [address]
+getAddresses (RangeAt     _ address)    = [address]
 getAddresses (RangeFromTo _ start stop) = [start..stop]
 
 getMetaInfo :: Range -> MetaInfo