Add support for backslashes to identifiers

2023-03-11 16:42:08 -08:00 · 2023-03-11 16:42:08 -08:00 · fe7c01f6c2
parent 3ab3126bbf
commit fe7c01f6c2
1 changed files with 1 additions and 1 deletions
--- a/src/Language/Bergamot/Parser.purs
+++ b/src/Language/Bergamot/Parser.purs
@ -26,7 +26,7 @@ whitespace :: Parser String Unit
 whitespace = void $ many space

 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 = (defer $ \_ -> atom) <|> (defer $ \_ -> metavariable)