repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
comments parsen is kapot
[cc1516.git]
/
src
/
parse.icl
diff --git
a/src/parse.icl
b/src/parse.icl
index
042ec47
..
ec89565
100644
(file)
--- a/
src/parse.icl
+++ b/
src/parse.icl
@@
-25,7
+25,7
@@
parser (Right r) = case runParser parseProgram r of
parseProgram :: Parser Token AST
parseProgram = liftM2 AST (many parseVarDecl) (some parseFunDecl)
parseProgram :: Parser Token AST
parseProgram = liftM2 AST (many parseVarDecl) (some parseFunDecl)
-
//
<* satTok EndOfFileToken
+
<* satTok EndOfFileToken
parseFunDecl :: Parser Token FunDecl
parseFunDecl = liftM5 FunDecl
parseFunDecl :: Parser Token FunDecl
parseFunDecl = liftM5 FunDecl
@@
-191,7
+191,7
@@
parseSepList sep p =
(liftM pure p) <|> pure empty
parseIdent :: Parser Token String
(liftM pure p) <|> pure empty
parseIdent :: Parser Token String
-parseIdent = trans2 (IdentToken
[]
) (\(IdentToken e).toString e)
+parseIdent = trans2 (IdentToken
""
) (\(IdentToken e).toString e)
instance toString AST where
toString (AST v f) = concat (
instance toString AST where
toString (AST v f) = concat (