allow identifiers to start witha digit #64

statebox · Nov 16, 2018 · c25c1bc · c25c1bc
1 parent f5769a6
commit c25c1bc
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/src/Language/Parser/Parser.hs b/src/Language/Parser/Parser.hs
@@ -39,7 +39,7 @@ optionParser =
 identifier :: Parser String
 identifier = (lexeme . try) (p >>= check)
  where
- unquotedIdentifier = lowerId <|> upperId <|> specialId
+ unquotedIdentifier = some (idChar <|> digitChar)
  quotedIdentifier = between (char '"') (char '"') $ some $ satisfy (\c -> isPrint c && (c /= '"'))
  p = unquotedIdentifier <|> quotedIdentifier
  check x =

diff --git a/test/Parser/ParserSpec.hs b/test/Parser/ParserSpec.hs
@@ -32,9 +32,9 @@ spec = do
  forAll upperIdGen $ \s -> parse identifier "" s == Right s
  specify "parses correctly a string starting with a special character" $
  forAll specialIdGen $ \s -> parse identifier "" s == Right s
- specify "does not parse a string starting with a digit" $
- forAll ((:) <$> digitCharGen <*> listOf (oneof [idCharGen, digitCharGen])) $ \s ->
- isLeft $ parse identifier "" s
+ -- specify "does not parse a string starting with a digit" $
+ --  forAll ((:) <$> digitCharGen <*> listOf (oneof [idCharGen, digitCharGen])) $ \s ->
+ --  isLeft $ parse identifier "" s
  specify
  "does not parse a string starting with a not-allowed special character" $
  forAll