Allow underscores and dollar signs in identifier names

rumblesan · Aug 25, 2020 · dc56fd1 · dc56fd1
1 parent 9610c38
commit dc56fd1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Language/Parser.hs b/src/Language/Parser.hs
@@ -67,7 +67,7 @@ rws = ["if", "elif", "else", "null", "func", "times", "with", "time"]
 identifier :: Parser String
 identifier = (lexeme . try) (p >>= check)
  where
-  p = (:) <$> letterChar <*> many alphaNumChar
+  p = (:) <$> (letterChar <|> char '$' <|> char '_') <*> many (alphaNumChar <|> char '$' <|> char '_')
   check x = if x `elem` rws
     then fail $ "keyword " ++ show x ++ " cannot be an identifier"
     else return x