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