starlitcanopy/simple-sql-parser
1
Fork 0
Code Activity

Small editorial

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Language/SQL/SimpleSQL/Dialect.lhs
View file

@ -88,7 +88,7 @@ Data types to represent different dialect options
> ,diPostgresSymbols :: Bool > ,diPostgresSymbols :: Bool
> -- | allow sql server style symbols > -- | allow sql server style symbols
> ,diSqlServerSymbols :: Bool > ,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 > ,diConvertFunction :: Bool
> } > }
> deriving (Eq,Show,Read,Data,Typeable) > deriving (Eq,Show,Read,Data,Typeable)

2
Language/SQL/SimpleSQL/Parse.lhs
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) > L.Identifier q p | map toLower p `notElem` blackList -> Just (q,p)
> _ -> Nothing) > _ -> Nothing)
> unquotedIdentifierTok :: [String] -> Maybe String -> Parser String > unquotedIdentifierTok :: [String] -> Maybe String -> Parser String
> unquotedIdentifierTok blackList kw = mytoken (\tok -> > unquotedIdentifierTok blackList kw = mytoken (\tok ->
> case (kw,tok) of > case (kw,tok) of
> (Nothing, L.Identifier Nothing p) | map toLower p `notElem` blackList -> Just p > (Nothing, L.Identifier Nothing p) | map toLower p `notElem` blackList -> Just p

2
tools/Language/SQL/SimpleSQL/ScalarExprs.lhs
View file

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