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 = MemoryOptions
   10   { ram     :: !RAMType
   11   , stack   :: !StackType
   12   , cell    :: !CellType
   13   , intCell :: !IntCellType
   14   }