never executed always true always false

    1 module HelVM.HelMA.Automata.Piet.API.LexerType where
    2 
    3 import           Data.Default
    4 
    5 defaultLexerType :: LexerType
    6 defaultLexerType = def
    7 
    8 fileLexerTypes :: NonEmpty LexerType
    9 fileLexerTypes = universeNonEmpty
   10 
   11 data LexerType = JuicyPixels | NetPBM
   12   deriving stock (Bounded , Enum , Eq , Read , Show)
   13 
   14 instance Default LexerType where
   15   def = minBound