From 7c16c9353b324301ee8c028e39c33aa2a46895f8 Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Mon, 29 Feb 2016 20:24:33 +0100 Subject: [PATCH] lex --- src/lex.icl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = -- 2.20.1