From c037ed290c3abae3f659ed80f4c2ddd27eac9952 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 6 Feb 2018 13:12:46 +0100
Subject: Add TComma

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

diff --git a/src/SPL/Parse.hs b/src/SPL/Parse.hs
index e74d9cb..62f64df 100644
--- a/src/SPL/Parse.hs
+++ b/src/SPL/Parse.hs
@@ -26,6 +26,7 @@ data Token
   | TEquals
   | TSemicolon
   | TDot
+  | TComma
 
   | TIf
   | TWhile
@@ -118,6 +119,7 @@ lex s = (comment s <|> item s <|> ident s <|> int s <|> char s <|> bool s) >>=
     item ('=':s) = pure (TEquals, s)
     item (';':s) = pure (TSemicolon, s)
     item ('.':s) = pure (TDot, s)
+    item (',':s) = pure (TComma, s)
     item ('+':s) = pure (TPlus, s)
     item ('-':s) = pure (TMinus, s)
     item ('*':s) = pure (TAsterisk, s)
-- 
cgit v1.2.3