fix parsing of quoted keywords
This commit is contained in:
parent
c5b8df7e2f
commit
ce0eeb392a
4 changed files with 38 additions and 0 deletions
Language/SQL/SimpleSQL
|
@ -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)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue