never executed always true always false

    1 module HelVM.HelMA.Automaton.Types.StackType where
    2 
    3 -- | Constructors
    4 defaultStackType ∷ StackType
    5 defaultStackType = minBound
    6 
    7 stackTypes ∷ NonEmpty StackType
    8 stackTypes = universeNonEmpty
    9 
   10 -- | Types
   11 data StackType
   12   = SeqStackType
   13   | SListStackType
   14   | ListStackType
   15   deriving stock (Bounded, Enum, Eq, Read, Show)