diff options
| author | Camil Staps | 2018-02-06 13:12:46 +0100 |
|---|---|---|
| committer | Camil Staps | 2018-02-06 13:12:46 +0100 |
| commit | c037ed290c3abae3f659ed80f4c2ddd27eac9952 (patch) | |
| tree | 0ea582d341bd7249087de1f1123b9da27d01ffe4 | |
| parent | Fix typo in example1.spl (diff) | |
Add TComma
| -rw-r--r-- | src/SPL/Parse.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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) |