repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 =
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
indent :: Int [String] -> [String]
indent i rest = replicate i "\t" ++ rest