diff options
Diffstat (limited to 'src/SPL/Parse.hs')
| -rw-r--r-- | src/SPL/Parse.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |