Commit 13582d1d authored by Bas Lijnse's avatar Bas Lijnse

Bugfix: added the backtick (`) character as allowed character in the lexing of identifiers.

parent 8d41d8de
...@@ -172,6 +172,7 @@ where ...@@ -172,6 +172,7 @@ where
Just '\'' -> lex_char 0 [] s Just '\'' -> lex_char 0 [] s
Just '"' -> lex_string 0 [] s Just '"' -> lex_string 0 [] s
Just '_' -> lex_ident 1 ['_'] s Just '_' -> lex_ident 1 ['_'] s
Just '`' -> lex_ident 1 ['`'] s
Just '+' Just '+'
# (mc, s) = lexGetChar s # (mc, s) = lexGetChar s
-> case mc of -> case mc of
...@@ -276,6 +277,7 @@ where ...@@ -276,6 +277,7 @@ where
= case mc of = case mc of
Nothing -> (mktoken num_chars acc_chars, s) Nothing -> (mktoken num_chars acc_chars, s)
Just '_' -> lex_ident (inc num_chars) ['_':acc_chars] s Just '_' -> lex_ident (inc num_chars) ['_':acc_chars] s
Just '`' -> lex_ident (inc num_chars) ['`':acc_chars] s
Just c Just c
| isAlphanum c | isAlphanum c
-> lex_ident (inc num_chars) [c:acc_chars] s -> lex_ident (inc num_chars) [c:acc_chars] s
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment