diff --git a/trans/haskell.str b/trans/haskell.str
index cdf4d55..0e0eb15 100644
--- a/trans/haskell.str
+++ b/trans/haskell.str
@@ -34,7 +34,9 @@ rules
     putStr(d)
     return s
 
-  emit s = getLine
+  emit s = do
+    l <- getLine
+    return (l ++ "\n")
 
   main = do
     [<Preactions>()]return [val]]