From 2c3c54fbde3f89ed2b87cbf6d4be5d4e7811d694 Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Mon, 29 Feb 2016 20:30:07 +0100
Subject: [PATCH] lexen zonder comments

---
 src/lex.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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