allow identifiers to be quoted on parsing #64

statebox · Oct 12, 2018 · d7b7298 · d7b7298
1 parent e4d3dee
commit d7b7298
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Language/Parser/Parser.hs b/src/Language/Parser/Parser.hs
@@ -34,9 +34,10 @@ optionParser =
  return (i,j)
 
 identifier :: Parser String
-identifier = (lexeme . try) (p >>= check)
+identifier = (lexeme . try) (p' >>= check)
  where
  p = lowerId <|> upperId <|> specialId
+ p' = p <|> between (char '"') (char '"') p
  check x =
  if x `elem` reservedWords
  then fail $ "keyword" ++ show x ++ "cannot be used as an identifier"