never executed always true always false

    1 module HelVM.HelMA.Automaton.API.AppOptions where
    2 
    3 import qualified HelVM.HelMA.Automaton.API.AutoOptions   as API
    4 import           HelVM.HelMA.Automaton.API.BoolTypes     as API
    5 import           HelVM.HelMA.Automaton.API.Emit          as API
    6 import qualified HelVM.HelMA.Automaton.API.EvalParams    as API
    7 import           HelVM.HelMA.Automaton.API.IOTypes       as API
    8 import qualified HelVM.HelMA.Automaton.API.Lang          as API
    9 import           HelVM.HelMA.Automaton.API.LogLevel      as API
   10 import qualified HelVM.HelMA.Automaton.API.MemoryOptions as API
   11 
   12 import           HelVM.HelMA.Automaton.Types.LabelType
   13 
   14 -- | Methods
   15 
   16 evalParams ∷ AppOptions → Source → API.EvalParams
   17 evalParams o source = API.EvalParams (formatType o) source (memoryOptions o) (autoOptions o)
   18 
   19 -- | Types
   20 
   21 data AppOptions
   22   = AppOptions
   23       { verbosity     :: !LogLevel
   24       , emit          :: !Emit
   25       , exec          :: !Exec
   26       , formatType    :: !LabelType
   27       , memoryOptions :: !API.MemoryOptions
   28       , autoOptions   :: !API.AutoOptions
   29       , langCommand   :: !API.LangCommand
   30       , file          :: !FilePath
   31       }
   32