comments parsen is kapot

[cc1516.git] / src / parse.icl

diff --git a/src/parse.icl b/src/parse.icl
index 56bc554..ec89565 100644 (file)
--- a/src/parse.icl
+++ b/src/parse.icl
@@ -191,7 +191,7 @@ parseSepList sep p =
        (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 (