never executed always true always false

    1 module HelVM.HelMA.Automata.BrainFuck.API.ImplType where
    2 
    3 -- | Constructors
    4 defaultImplType ∷ ImplType
    5 defaultImplType = minBound
    6 
    7 implTypes ∷ NonEmpty ImplType
    8 implTypes = universeNonEmpty
    9 
   10 -- | Type
   11 data ImplType
   12   = FastType
   13   | TreeType
   14   | FlatType
   15   deriving stock (Bounded, Enum, Eq, Read, Show)