X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=src%2Flex.icl;h=8dc82e92d266a4b955bd65666adf57199eb3f7af;hb=7c16c9353b324301ee8c028e39c33aa2a46895f8;hp=a6f31ab8eb0e4abad9d597e629c9e0bfc091bfef;hpb=6c1945d3b85c0bf8ff2d56b4a6fb456d07a7282a;p=cc1516.git

diff --git a/src/lex.icl b/src/lex.icl
index a6f31ab..8dc82e9 100644
--- a/src/lex.icl
+++ b/src/lex.icl
@@ -15,7 +15,7 @@ lexer r = case runParser lexProgram r of
 	(Left e, _) = Left $ toString e
 
 lexProgram :: Parser Char [Token]
-lexProgram = some lexToken >>= \ts->pure (map (\t->(0, 0, t)) ts)
+lexProgram = some lexToken <* eof >>= \ts->pure (map (\t->(0, 0, t)) ts)
 
 lexToken :: Parser Char TokenValue
 lexToken =