never executed always true always false

    1 module HelVM.HelMA.Automata.WhiteSpace.API.TokenType where
    2 
    3 -- | Constructors
    4 defaultTokenType ∷ TokenType
    5 defaultTokenType = minBound
    6 
    7 tokenTypes ∷ NonEmpty TokenType
    8 tokenTypes = universeNonEmpty
    9 
   10 -- | Types
   11 data TokenType
   12   = WhiteTokenType
   13   | VisibleTokenType
   14   deriving stock (Bounded, Enum, Eq, Read, Show)