never executed always true always false

    1 module HelVM.HelMA.Automaton.Types.IntCellType where
    2 
    3 -- | Constructors
    4 defaultIntCellType ∷ IntCellType
    5 defaultIntCellType = minBound
    6 
    7 intCellTypes ∷ NonEmpty IntCellType
    8 intCellTypes = universeNonEmpty
    9 
   10 -- | Types
   11 data IntCellType
   12   = IntegerType
   13   | Int8Type
   14   | Int16Type
   15   | Int32Type
   16   | Int64Type
   17   deriving stock (Bounded, Enum, Eq, Read, Show)