1
Fork 0

fix parsing of quoted keywords

This commit is contained in:
Jake Wheat 2019-08-31 09:13:09 +01:00
parent c5b8df7e2f
commit ce0eeb392a
4 changed files with 38 additions and 0 deletions
Language/SQL/SimpleSQL

View file

@ -2118,6 +2118,7 @@ It is only allowed when all the strings are quoted with ' atm.
> identifierTok :: [String] -> Parser (Maybe (String,String), String)
> identifierTok blackList = mytoken (\tok ->
> case tok of
> L.Identifier q@(Just {}) p -> Just (q,p)
> L.Identifier q p | map toLower p `notElem` blackList -> Just (q,p)
> _ -> Nothing)