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 = No | IL | TL | Code
   10   deriving stock (Bounded , Enum , Eq , Read , Show)