X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;ds=sidebyside;f=src%2Fparse.icl;h=ec89565f05c71a9645d3123df289adb81e73633b;hb=eb91d7c6b2010be6a43de0a978373654ba3deacc;hp=56bc554a605794a58c39c5a7b363636dda1d30f8;hpb=c126dc3a1f66f959407cf3cf33bcba01142591c6;p=cc1516.git

diff --git a/src/parse.icl b/src/parse.icl
index 56bc554..ec89565 100644
--- 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 (