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

relational-query: apply internal namespace.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-15 00:07:14 +09:00
parent 8e5f1e0a66
commit e251339202
5 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
relational-query/src/Database/Relational/Query/Arrow.hs
View File

@ -79,7 +79,6 @@ import Database.Relational.Query hiding
QuerySimple, QueryAggregate, QueryUnique, Window)
import qualified Database.Relational.Query as Monadic
import Database.Relational.Query.Projection (ListProjection)
import Database.Relational.Query.Component (AggregateKey)
import qualified Database.Relational.Query.Monad.Trans.Aggregating as Monadic
import qualified Database.Relational.Query.Monad.Trans.Ordering as Monadic
import qualified Database.Relational.Query.Monad.Trans.Assigning as Monadic

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

@ -34,11 +34,11 @@ import Database.Record (PersistableWidth)
import Database.Relational.Query.Internal.Config (Config, defaultConfig)
import Database.Relational.Query.Internal.SQL (StringSQL, stringSQL, showStringSQL)
import Database.Relational.Query.Internal.BaseSQL (composeSets, composeValues)
import Database.Relational.Query.Pi (id')
import Database.Relational.Query.Table (Table, TableDerivable, derivedTable)
import qualified Database.Relational.Query.Table as Table
import Database.Relational.Query.Component (composeSets, composeValues)
import Database.Relational.Query.Sub (composeWhere)
import qualified Database.Relational.Query.Projection as Projection
import Database.Relational.Query.Projectable

6
relational-query/src/Database/Relational/Query/Monad/Class.hs
View File

@ -4,7 +4,7 @@
-- |
-- Module : Database.Relational.Query.Monad.Class
-- Copyright : 2013 Kei Hibino
-- Copyright : 2013-2017 Kei Hibino
-- License : BSD3
--
-- Maintainer : ex8k.hibino@gmail.com
@ -21,8 +21,10 @@ module Database.Relational.Query.Monad.Class
on, wheres, having,
) where
import Database.Relational.Query.Internal.BaseSQL (Duplication (..))
import Database.Relational.Query.Internal.GroupingSQL (AggregateKey)
import Database.Relational.Query.Context (Flat, Aggregated)
import Database.Relational.Query.Component (Duplication (..), AggregateKey)
import Database.Relational.Query.Projection (Projection)
import Database.Relational.Query.Projectable (PlaceHolders)
import Database.Relational.Query.Monad.BaseType (ConfigureQuery, Relation)

5
relational-query/src/Database/Relational/Query/Monad/Trans/Aggregating.hs
View File

@ -36,11 +36,12 @@ import Data.DList (DList, toList)
import Data.Functor.Identity (Identity (runIdentity))
import Database.Relational.Query.Context (Flat, Aggregated, Set, Power, SetList)
import Database.Relational.Query.Component
import Database.Relational.Query.Internal.GroupingSQL
(AggregateColumnRef, AggregateElem, aggregateColumnRef, AggregateSet, aggregateGroupingSet,
AggregateBitKey, aggregatePowerKey, aggregateRollup, aggregateCube, aggregateSets,
AggregateKey, aggregateKeyProjection, aggregateKeyElement, unsafeAggregateKey)
import Database.Relational.Query.Context (Flat, Aggregated, Set, Power, SetList)
import Database.Relational.Query.Projection (Projection)
import qualified Database.Relational.Query.Projection as Projection
import Database.Relational.Query.Monad.Class

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

@ -62,6 +62,10 @@ import qualified Database.Relational.Query.Context as Context
import Database.Relational.Query.Internal.SQL
(StringSQL, stringSQL, rowStringSQL, showStringSQL,
ColumnSQL, columnSQL', showsColumnSQL, )
import Database.Relational.Query.Internal.BaseSQL
(Duplication (..), showsDuplication, OrderingTerm, composeOrderBy, )
import Database.Relational.Query.Internal.GroupingSQL
(AggregateElem, composeGroupBy, )
import Database.Relational.Query.Internal.Sub
(SubQuery (..), Projection,
UntypedProjection, ProjectionUnit (..),
@ -73,9 +77,6 @@ import qualified Database.Relational.Query.Internal.Sub as Internal
import Database.Relational.Query.Internal.UntypedTable ((!))
import qualified Database.Relational.Query.Internal.UntypedTable as UntypedTable
import Database.Relational.Query.Component
(Duplication (..), showsDuplication,
AggregateElem, composeGroupBy, OrderingTerm, composeOrderBy)
import Database.Relational.Query.Table (Table)
import qualified Database.Relational.Query.Table as Table
import Database.Relational.Query.Pure (showConstantTermsSQL')