From 65f6bf827fa2f4d2f79f9e3bda990b7e4c4df5f1 Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Tue, 1 Mar 2016 16:41:54 +0100
Subject: [PATCH] better lexer

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

diff --git a/src/lex.icl b/src/lex.icl
index 1828e37..ac5168f 100644
--- a/src/lex.icl
+++ b/src/lex.icl
@@ -15,8 +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)) (catMaybes ts))
+lexProgram = catMaybes <$> some lexToken <* eof
+	>>= \ts->pure $ (map (\t->(0, 0, t)) ts)
 
 lexToken :: Parser Char (Maybe TokenValue)
 lexToken = 
-- 
2.20.1