Add support for backslashes to identifiers
This commit is contained in:
parent
3ab3126bbf
commit
fe7c01f6c2
|
@ -26,7 +26,7 @@ whitespace :: Parser String Unit
|
||||||
whitespace = void $ many space
|
whitespace = void $ many space
|
||||||
|
|
||||||
identifier :: Parser String String
|
identifier :: Parser String String
|
||||||
identifier = (charsToString <$> many1 (letter <|> digit <|> char '_')) <* whitespace
|
identifier = (charsToString <$> many1 (letter <|> digit <|> char '_' <|> char '\\')) <* whitespace
|
||||||
|
|
||||||
expr :: Parser String (Expr Metavariable)
|
expr :: Parser String (Expr Metavariable)
|
||||||
expr = (defer $ \_ -> atom) <|> (defer $ \_ -> metavariable)
|
expr = (defer $ \_ -> atom) <|> (defer $ \_ -> metavariable)
|
||||||
|
|
Loading…
Reference in New Issue