never executed always true always false

    1 module HelVM.HelMA.Automata.BrainFuck.API.BFType where
    2 
    3 -- | Constructors
    4 defaultBFType :: BFType
    5 defaultBFType = minBound
    6 
    7 bfTypes :: NonEmpty BFType
    8 bfTypes = universeNonEmpty
    9 
   10 -- | Type
   11 data BFType = FastType | TreeType | FlatType
   12   deriving stock (Bounded , Enum , Eq , Read , Show)