khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-12-03 03:52:10 +03:00
Code Issues Projects Releases Wiki Activity

export constructors to simplify module dependency layers.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-14 14:01:10 +09:00
parent ab8343978c
commit 05628685f9
3 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
relational-query/src/Database/Relational/Query/Monad/Trans/Join.hs
View File

@ -34,9 +34,9 @@ import Data.Maybe (fromMaybe)
import Data.Monoid (Last (Last, getLast))
import Database.Relational.Query.Internal.BaseSQL (Duplication (All))
import Database.Relational.Query.Internal.Sub (NodeAttr (Just', Maybe), SubQuery, Qualified, JoinProduct, Projection)
import Database.Relational.Query.Internal.Product (restrictProduct, growProduct)
import Database.Relational.Query.Sub (NodeAttr (Just', Maybe), SubQuery, Qualified, JoinProduct, Projection)
import Database.Relational.Query.Context (Flat)
import Database.Relational.Query.Monad.Trans.JoinState
(JoinContext, primeJoinContext, updateProduct, joinProduct)

3
relational-query/src/Database/Relational/Query/Relation.hs
View File

@ -43,7 +43,6 @@ module Database.Relational.Query.Relation (
import Control.Applicative ((<$>))
import Database.Relational.Query.Internal.BaseSQL (Duplication (Distinct, All))
import Database.Relational.Query.Internal.Sub (NodeAttr(Just', Maybe))
import Database.Relational.Query.Context (Flat, Aggregated)
import Database.Relational.Query.Monad.BaseType
@ -58,7 +57,7 @@ import qualified Database.Relational.Query.Monad.Aggregate as Aggregate
import Database.Relational.Query.Monad.Unique (QueryUnique, unsafeUniqueSubQuery)
import qualified Database.Relational.Query.Monad.Unique as Unique
import Database.Relational.Query.Table (Table, TableDerivable, derivedTable)
import Database.Relational.Query.Sub (SubQuery)
import Database.Relational.Query.Sub (SubQuery, NodeAttr(Just', Maybe))
import qualified Database.Relational.Query.Sub as SubQuery
import Database.Relational.Query.Scalar (ScalarDegree)
import Database.Relational.Query.Pi (Pi)

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

@ -40,7 +40,7 @@ module Database.Relational.Query.Sub (
widthOfUntypedProjection, columnsOfUntypedProjection,
-- * Product of sub-queries
JoinProduct, NodeAttr,
JoinProduct, NodeAttr (..),
nodeTree,
ProductBuilder,