never executed always true always false

    1 module HelVM.HelMA.Automaton.Types.CellType where
    2 
    3 -- | Constructors
    4 defaultCellType ∷ CellType
    5 defaultCellType = minBound
    6 
    7 cellTypes ∷ NonEmpty CellType
    8 cellTypes = universeNonEmpty
    9 
   10 -- | Types
   11 data CellType
   12   = Int8Type
   13   | Word8Type
   14   | Int16Type
   15   | Word16Type
   16   | Int32Type
   17   | Word32Type
   18   | Int64Type
   19   | Word64Type
   20   deriving stock (Bounded, Enum, Eq, Read, Show)