Small editorial
This commit is contained in:
parent
61275461b5
commit
80e79ced2e
|
@ -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)
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue