diff options
Diffstat (limited to 'src/Eval.hs')
| -rw-r--r-- | src/Eval.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Eval.hs b/src/Eval.hs index 7cf598b..3a1b0c1 100644 --- a/src/Eval.hs +++ b/src/Eval.hs @@ -137,7 +137,7 @@ evalInstruction (ContextualInstruction instr inp) s@(EnvState env) rec conf = ca <> (show e') <> "\n*> " <> (show reduced) - <> (if likeTernary reduced + <> (if likeTernary reduced -- TODO: Also sugar string/char then "\t(" <> (show $ ternaryToDecimal reduced) <> ")" else "" ) @@ -255,5 +255,5 @@ evalMain = do exec path (try . Byte.readFile) (fromBitString . Bit.bitString) ["-E", path] -> exec path (try . readFile) id ['-' : _] -> usage - [path ] -> evalFile path putStrLn decodeStdout + [path ] -> evalFile path putStr decodeStdout _ -> usage |