never executed always true always false

    1 module HelVM.HelMA.Automaton.API.MemoryOptions where
    2 
    3 import           HelVM.HelMA.Automaton.Types.CellType
    4 import           HelVM.HelMA.Automaton.Types.IntCellType
    5 import           HelVM.HelMA.Automaton.Types.RAMType
    6 import           HelVM.HelMA.Automaton.Types.StackType
    7 
    8 -- | Types
    9 data MemoryOptions
   10   = MemoryOptions
   11       { ram     :: !RAMType
   12       , stack   :: !StackType
   13       , cell    :: !CellType
   14       , intCell :: !IntCellType
   15       }