From 62544aa6b3944876ae4a62076a67d3cd746e0d64 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Wed, 7 Feb 2018 12:28:39 +0100
Subject: Add TArrow

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

diff --git a/src/SPL/Lex.hs b/src/SPL/Lex.hs
index 1843cdd..21b8a82 100644
--- a/src/SPL/Lex.hs
+++ b/src/SPL/Lex.hs
@@ -27,6 +27,7 @@ data Token
   | TSemicolon
   | TDot
   | TComma
+  | TArrow
 
   | TIf
   | TWhile
@@ -120,6 +121,7 @@ lex s = (comment s <|> item s <|> int s <|> char s <|> bool s <|> ident s) >>=
     item ('&':'&':s) = pure (TAmpAmp, s)
     item ('|':'|':s) = pure (TPipePipe, s)
     item (':':':':s) = pure (TColonColon, s)
+    item ('-':'>':s) = pure (TArrow, s)
     item ('(':s) = pure (TParenOpen, s)
     item (')':s) = pure (TParenClose, s)
     item ('[':s) = pure (TBrackOpen, s)
-- 
cgit v1.2.3