From 4dbc7bf30e68bfff3b8b778fb631f2707882c65d Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 8 Feb 2014 03:41:31 +1100 Subject: Changed interpreter to not automatically output newline characters after every output string --- Thue/Interpreter.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Thue/Interpreter.hs') 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) -- cgit