rename CombineQueryExpr to QueryExprSetOp and CombineOp to SetOperatorName

Language/SQL/SimpleSQL/Parse.lhs

@@ -1523,7 +1523,7 @@ be in the public syntax?
 >         <*> option SQDefault duplicates
 >         <*> corr
 >   where
->     cq o d c q0 q1 = CombineQueryExpr q0 o d c q1
+>     cq o d c q0 q1 = QueryExprSetOp q0 o d c q1
 >     setOpK = choice [Union <$ keyword_ "union"
 >                     ,Intersect <$ keyword_ "intersect"
 >                     ,Except <$ keyword_ "except"]

Language/SQL/SimpleSQL/Pretty.lhs

@@ -333,7 +333,7 @@ which have been changed to try to improve the layout of the output.
 >                 else text "fetch first" <+> scalarExpr dia e
 >                      <+> text "rows only") fe
 
-> queryExpr dia (CombineQueryExpr q1 ct d c q2) =
+> queryExpr dia (QueryExprSetOp q1 ct d c q2) =
 >   sep [queryExpr dia q1
 >       ,text (case ct of
 >                 Union -> "union"

Language/SQL/SimpleSQL/Syntax.lhs

@@ -23,7 +23,7 @@
 >      -- * Query expressions
 >     ,QueryExpr(..)
 >     ,makeSelect
->     ,CombineOp(..)
+>     ,SetOperatorName(..)
 >     ,Corresponding(..)
 >     ,Alias(..)
 >     ,GroupingExpr(..)
@@ -211,7 +211,7 @@ in other places
 >     --  | Escape ScalarExpr Char
 >     --  | UEscape ScalarExpr Char
 >     | Collate ScalarExpr [Name]
->     | MultisetBinOp ScalarExpr CombineOp SetQuantifier ScalarExpr
+>     | MultisetBinOp ScalarExpr SetOperatorName SetQuantifier ScalarExpr
 >     | MultisetCtor [ScalarExpr]
 >     | MultisetQueryCtor QueryExpr
 >     | NextValueFor [Name]
@@ -349,9 +349,9 @@ This would make some things a bit cleaner?
 >       ,qeOffset :: Maybe ScalarExpr
 >       ,qeFetchFirst :: Maybe ScalarExpr
 >       }
->     | CombineQueryExpr
+>     | QueryExprSetOp
 >       {qe0 :: QueryExpr
->       ,qeCombOp :: CombineOp
+>       ,qeCombOp :: SetOperatorName
 >       ,qeSetQuantifier :: SetQuantifier
 >       ,qeCorresponding :: Corresponding
 >       ,qe1 :: QueryExpr
@@ -402,7 +402,7 @@ I'm not sure if this is valid syntax or not.
 > -- | The direction for a column in order by.
 > data Direction = DirDefault | Asc | Desc deriving (Eq,Show,Read,Data,Typeable)
 > -- | Query expression set operators.
-> data CombineOp = Union | Except | Intersect deriving (Eq,Show,Read,Data,Typeable)
+> data SetOperatorName = Union | Except | Intersect deriving (Eq,Show,Read,Data,Typeable)
 > -- | Corresponding, an option for the set operators.
 > data Corresponding = Corresponding | Respectively deriving (Eq,Show,Read,Data,Typeable)