lexer met generics

[cc1516.git] / src / parse.icl

diff --git a/src/parse.icl b/src/parse.icl
index bc93239..f1c7620 100644 (file)
--- a/src/parse.icl
+++ b/src/parse.icl
@@ -218,7 +218,7 @@ printStatements [s:ss] i = (case s of
                printCodeBlock [] _ = ["{}"]
                printCodeBlock [x] i = ["\n":printStatements [x] (i+1)]
                printCodeBlock x i =
-                       ["{\n":printStatements x (i+1)] ++ indent i ["}"]
+                       ["{\n":printStatements x (i+1)] ++ indent i ["}\n"]
 
                indent :: Int [String] -> [String]
                indent i rest = replicate i "\t" ++ rest