summaryrefslogtreecommitdiff
path: root/Thue
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2014-02-08 03:41:31 +1100
committerJed Barber <jjbarber@y7mail.com>2014-02-08 03:41:31 +1100
commit4dbc7bf30e68bfff3b8b778fb631f2707882c65d (patch)
treead7c453332bd57f0cf2a368dbe06e50616e42a63 /Thue
parent6f4d0ba664d9fdcea2f9b8188d218cce83916758 (diff)
Changed interpreter to not automatically output newline characters after every output string
Diffstat (limited to 'Thue')
-rw-r--r--Thue/Interpreter.hs2
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)