never executed always true always false

    1 
    2 module HelVM.HelMA.Automata.Piet.Types.Labelling
    3   ( Labelling (..)
    4   , info
    5   , mask
    6   ) where
    7 
    8 import           HelVM.HelMA.Automata.Piet.Types.Image
    9 import           HelVM.HelMA.Automata.Piet.Types.Label
   10 
   11 import           Lens.Micro.TH                         ( makeLenses )
   12 
   13 data Labelling
   14   = Labelling
   15       { _mask :: Image LabelKey
   16       , _info :: IntMap (Maybe LabelInfo)
   17       }
   18   deriving stock (Show)
   19 
   20 makeLenses ''Labelling