khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

unqualify.

Browse Source
This commit is contained in:
Kei Hibino 2016-08-16 15:21:26 +09:00
parent 949a0c8739
commit 364bd211c9
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
relational-query/src/Database/Relational/Query/Internal/Sub.hs
View File

@ -29,7 +29,7 @@ import Prelude hiding (and, product)
import Data.Array (Array)
import Data.DList (DList)
import qualified Database.Relational.Query.Context as Context
import Database.Relational.Query.Context (Flat, Aggregated)
import Database.Relational.Query.Component
(ColumnSQL, Config, Duplication (..),
AggregateElem, OrderingTerms)
@ -45,11 +45,11 @@ newtype BinOp = BinOp (SetOp, Duplication) deriving Show
-- | Sub-query type
data SubQuery = Table Table.Untyped
| Flat Config
UntypedProjection Duplication JoinProduct (QueryRestriction Context.Flat)
UntypedProjection Duplication JoinProduct (QueryRestriction Flat)
OrderingTerms
| Aggregated Config
UntypedProjection Duplication JoinProduct (QueryRestriction Context.Flat)
[AggregateElem] (QueryRestriction Context.Aggregated) OrderingTerms
UntypedProjection Duplication JoinProduct (QueryRestriction Flat)
[AggregateElem] (QueryRestriction Aggregated) OrderingTerms
| Bin BinOp SubQuery SubQuery
deriving Show
@ -78,7 +78,7 @@ data NodeAttr = Just' | Maybe deriving Show
type QS = Qualified SubQuery
type QueryRestrictionBuilder = DList (Projection Context.Flat (Maybe Bool))
type QueryRestrictionBuilder = DList (Projection Flat (Maybe Bool))
-- | Product tree type. Product tree is constructed by left node and right node.
data ProductTree rs