diff options
| author | Marvin Borner | 2022-08-10 18:53:34 +0200 |
|---|---|---|
| committer | Marvin Borner | 2022-08-10 18:53:34 +0200 |
| commit | 792534b3888bc1b9c33047f1c312c4e17a720885 (patch) | |
| tree | b0401f5c1ca156858fb7de94a5488151be075c89 /src/Eval.hs | |
| parent | cba3d7d21241f8db913e6e2733a8edc3a522ee62 (diff) | |
Added syntactic sugar for strings & chars
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 |