From 9d660e6fc1bc302b22aa8893afff91d2a7bc4c8c Mon Sep 17 00:00:00 2001
From: Erin van der Veen
Date: Tue, 6 Feb 2018 21:23:32 +0100
Subject: Change order of Lexing, we do not want True to be considered an Ident

---
 src/SPL/Parse.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/SPL/Parse.hs')

diff --git a/src/SPL/Parse.hs b/src/SPL/Parse.hs
index 62f64df..ff8f619 100644
--- a/src/SPL/Parse.hs
+++ b/src/SPL/Parse.hs
@@ -60,7 +60,7 @@ data Token
 lex :: (Monad m, Alternative m) => String -> m [Token]
 lex [] = pure []
 lex (c:s) | isSpace c = lex s
-lex s = (comment s <|> item s <|> ident s <|> int s <|> char s <|> bool s) >>=
+lex s = (comment s <|> item s <|> int s <|> char s <|> bool s <|> ident s) >>=
   \(t,s') -> lex s' >>= \ts -> pure (t:ts)
   where
     ident :: (Alternative m) => String -> m (Token, String)
-- 
cgit v1.2.3