never executed always true always false

    1 module HelVM.HelMA.Automaton.Instruction.Groups.LSInstruction where
    2 
    3 import           HelVM.HelMA.Automaton.Instruction.Extras.Common
    4 import           HelVM.HelMA.Automaton.Instruction.Groups.IOInstruction
    5 
    6 -- | Types
    7 
    8 data LSInstruction =
    9     Load    --Restore --Fetch
   10   | LoadD   !Index
   11   | Store   --Save
   12   | StoreID !Integer !Index
   13   | MoveD   !Index !Index
   14   | MIO     !IOInstruction
   15   deriving stock (Eq , Read , Show)