allow spaces in identifiers between quotes #64

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