From 792534b3888bc1b9c33047f1c312c4e17a720885 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 10 Aug 2022 18:53:34 +0200
Subject: Added syntactic sugar for strings & chars

---
 src/Eval.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Eval.hs')

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
-- 
cgit v1.2.3