module MicroHs.Flags(module MicroHs.Flags) where
import Prelude

data Flags = Flags
  Int        -- verbosity level
  Bool       -- run instead of compile
  [String]   -- module search path
  String     -- output file
  Bool       -- show loading message
  Bool       -- use caching
  Bool       -- emit ticks
  deriving (Show)

verbose :: Flags -> Int
verbose (Flags x _ _ _ _ _ _) = x

runIt :: Flags -> Bool
runIt (Flags _ x _ _ _ _ _) = x

paths :: Flags -> [String]
paths (Flags _ _ x _ _ _ _) = x

output :: Flags -> String
output (Flags _ _ _ x _ _ _) = x

loading :: Flags -> Bool
loading (Flags _ _ _ _ x _ _) = x

useCache :: Flags -> Bool
useCache (Flags _ _ _ _ _ x _) = x

useTicks :: Flags -> Bool
useTicks (Flags _ _ _ _ _ _ x) = x