never executed always true always false

    1 module HelVM.HelMA.Automata.Piet.Types.CodelChooser (
    2   toggle,
    3   CodelChooser(..),
    4 ) where
    5 
    6 import           HelVM.HelMA.Automata.Piet.Types.Extra
    7 
    8 toggle :: Int -> CodelChooser -> CodelChooser
    9 toggle = change 2
   10 
   11 data CodelChooser = CCLeft | CCRight
   12   deriving stock (Show, Read, Eq, Ord, Enum, Bounded)