diff options
| author | Jed Barber <jjbarber@y7mail.com> | 2014-02-08 03:41:31 +1100 |
|---|---|---|
| committer | Jed Barber <jjbarber@y7mail.com> | 2014-02-08 03:41:31 +1100 |
| commit | 4dbc7bf30e68bfff3b8b778fb631f2707882c65d (patch) | |
| tree | ad7c453332bd57f0cf2a368dbe06e50616e42a63 | |
| parent | 6f4d0ba664d9fdcea2f9b8188d218cce83916758 (diff) | |
Changed interpreter to not automatically output newline characters after every output string
| -rw-r--r-- | Thue/Interpreter.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Thue/Interpreter.hs b/Thue/Interpreter.hs index cbf58a4..b6602c3 100644 --- a/Thue/Interpreter.hs +++ b/Thue/Interpreter.hs @@ -33,7 +33,7 @@ interpret state rules gen = do state' <- case (replacement ruleToApply) of ":::" -> getLine >>= (\x -> return (before ++ x ++ after)) - '~':xs -> putStrLn xs >> return (before ++ after) + '~':xs -> putStr xs >> return (before ++ after) x -> return (before ++ x ++ after) |