never executed always true always false

    1 module HelVM.HelMA.Automata.BrainFuck.Impl.Tree.Instruction where
    2 
    3 import           HelVM.HelMA.Automata.BrainFuck.Common.SimpleInstruction
    4 
    5 import           Data.DList
    6 import           Data.Vector
    7 
    8 data TreeInstruction =
    9     Simple SimpleInstruction
   10   | While !TreeInstructionVector
   11   deriving stock (Eq , Read , Show)
   12 
   13 type TreeInstructionList   = [TreeInstruction]
   14 type TreeInstructionDList  = DList TreeInstruction
   15 type TreeInstructionVector = Vector TreeInstruction