Garmelon/propa-tools
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Switch name quotes to single quotes

Browse source
This commit is contained in:
Joscha 2020-12-13 21:55:24 +00:00
parent e4e5c801f3
commit 1547561fa5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Propa/Prolog/Parse.hs
View file

@ -42,7 +42,7 @@ pName :: Parser T.Text
pName = lexeme $ unquotedName <|> quotedName pName = lexeme $ unquotedName <|> quotedName
where where
unquotedName = takeWhile1P (Just "lowercase character") isLower 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 :: Parser T.Text
pVarName = lexeme $ takeWhile1P (Just "uppercase character") isUpper pVarName = lexeme $ takeWhile1P (Just "uppercase character") isUpper