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
   12   = JuicyPixels
   13   | NetPBM
   14   deriving stock (Bounded, Enum, Eq, Read, Show)
   15 
   16 instance Default LexerType where
   17   def = minBound