Switch name quotes to single quotes
This commit is contained in:
parent
e4e5c801f3
commit
1547561fa5
1 changed files with 1 additions and 1 deletions
|
|
@ -42,7 +42,7 @@ pName :: Parser T.Text
|
|||
pName = lexeme $ unquotedName <|> quotedName
|
||||
where
|
||||
unquotedName = takeWhile1P (Just "lowercase character") isLower
|
||||
quotedName = fmap T.pack $ C.char '"' *> manyTill L.charLiteral (C.char '"')
|
||||
quotedName = fmap T.pack $ C.char '\'' *> manyTill L.charLiteral (C.char '\'')
|
||||
|
||||
pVarName :: Parser T.Text
|
||||
pVarName = lexeme $ takeWhile1P (Just "uppercase character") isUpper
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue