1
Fork 0

Small editorial

This commit is contained in:
Bartosz Wójcik 2021-12-02 17:04:01 +01:00
parent 61275461b5
commit 80e79ced2e
3 changed files with 3 additions and 3 deletions

View file

@ -88,7 +88,7 @@ Data types to represent different dialect options
> ,diPostgresSymbols :: Bool
> -- | allow sql server style symbols
> ,diSqlServerSymbols :: Bool
> -- | allow sql server style forCONVERT function in format @CONVERT(data_type(length), expression, style)@
> -- | allow sql server style for CONVERT function in format CONVERT(data_type(length), expression, style)
> ,diConvertFunction :: Bool
> }
> deriving (Eq,Show,Read,Data,Typeable)

View file

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

View file

@ -5,7 +5,7 @@ Tests for parsing scalar expressions
> import Language.SQL.SimpleSQL.TestTypes
> import Language.SQL.SimpleSQL.Syntax
> scalarExprTests :: TestItem
> scalarExprTests = Group "scalarExprTests"
> [literals