never executed always true always false

    1 module HelVM.HelMA.Automata.Rev.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 import qualified Data.Text                            as Text
   11 
   12 evalParams :: BIO m => EvalParams -> m ()
   13 evalParams = eval . source
   14 
   15 eval :: BusinessIO m => Source -> m ()
   16 eval = evalLines . lines
   17 
   18 evalLines :: BusinessIO m => [Source] -> m ()
   19 evalLines ll = doOutput $ unlines $ Text.reverse <$> ll
   20 
   21 doOutput :: BusinessIO m => Source -> m ()
   22 doOutput = wPutStr