From d142ad2c031d83b1b6e2c87b6019c76a99f4cf4e Mon Sep 17 00:00:00 2001
From: Glen Whitney <glen@studioinfinity.org>
Date: Sat, 13 Mar 2021 08:56:41 -0800
Subject: [PATCH] fix: reattach the newline that Haskell strips on input

---
 trans/haskell.str | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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]]