never executed always true always false

    1 module HelVM.HelMA.Automata.Cat.Evaluator (
    2   evalParams,
    3   eval
    4 ) where
    5 
    6 import           HelVM.HelMA.Automaton.API.EvalParams
    7 import           HelVM.HelMA.Automaton.API.IOTypes
    8 import           HelVM.HelMA.Automaton.IO.BusinessIO
    9 
   10 evalParams :: BIO m => EvalParams -> m ()
   11 evalParams = eval . source
   12 
   13 eval :: BusinessIO m => Source -> m ()
   14 eval = wPutStr