diff options
| -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) |