never executed always true always false

    1 module HelVM.HelMA.Automaton.API.Emit where
    2 
    3 defaultEmit ∷ Emit
    4 defaultEmit = minBound
    5 
    6 emits ∷ NonEmpty Emit
    7 emits = universeNonEmpty
    8 
    9 data Emit
   10   = No
   11   | IL
   12   | TL
   13   | Code
   14   deriving stock (Bounded, Enum, Eq, Read, Show)