From 80e79ced2eb64206c26aa14a73a40d012e222bca Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Bartosz=20W=C3=B3jcik?= <bartek@sudety.it> Date: Thu, 2 Dec 2021 17:04:01 +0100 Subject: [PATCH] Small editorial --- Language/SQL/SimpleSQL/Dialect.lhs | 2 +- Language/SQL/SimpleSQL/Parse.lhs | 2 +- tools/Language/SQL/SimpleSQL/ScalarExprs.lhs | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Language/SQL/SimpleSQL/Dialect.lhs b/Language/SQL/SimpleSQL/Dialect.lhs index d396022..c6bcfb3 100644 --- a/Language/SQL/SimpleSQL/Dialect.lhs +++ b/Language/SQL/SimpleSQL/Dialect.lhs @@ -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) diff --git a/Language/SQL/SimpleSQL/Parse.lhs b/Language/SQL/SimpleSQL/Parse.lhs index 284be37..89a1e37 100644 --- a/Language/SQL/SimpleSQL/Parse.lhs +++ b/Language/SQL/SimpleSQL/Parse.lhs @@ -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 diff --git a/tools/Language/SQL/SimpleSQL/ScalarExprs.lhs b/tools/Language/SQL/SimpleSQL/ScalarExprs.lhs index 80dad53..f587e1c 100644 --- a/tools/Language/SQL/SimpleSQL/ScalarExprs.lhs +++ b/tools/Language/SQL/SimpleSQL/ScalarExprs.lhs @@ -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