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 = Int8Type | Word8Type | Int16Type | Word16Type | Int32Type | Word32Type | Int64Type | Word64Type
   12   deriving stock (Bounded , Enum , Eq , Read , Show)