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: adjust internal or not.

Browse Source
This commit is contained in:
Kei Hibino 2017-02-14 12:59:51 +09:00
parent 715e446014
commit ab8343978c
7 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -21,8 +21,8 @@ module Database.Relational.Query.Monad.Assign (
import Database.Relational.Query.Internal.BaseSQL (Assignment)
import Database.Relational.Query.Internal.Config (Config)
import Database.Relational.Query.Internal.Sub (QueryRestriction)
import Database.Relational.Query.Sub (QueryRestriction)
import Database.Relational.Query.Context (Flat)
import Database.Relational.Query.Table (Table)
import Database.Relational.Query.Projection (Projection)

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

@ -21,8 +21,8 @@ module Database.Relational.Query.Monad.Restrict (
) where
import Database.Relational.Query.Internal.Config (Config)
import Database.Relational.Query.Internal.Sub (QueryRestriction)
import Database.Relational.Query.Sub (QueryRestriction)
import Database.Relational.Query.Context (Flat)
import Database.Relational.Query.Projection (Projection)
import Database.Relational.Query.Monad.Trans.Restricting

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

@ -9,6 +9,8 @@
--
-- This module provides state definition for
-- "Database.Relational.Query.Monad.Trans.Join".
--
-- This is not public interface.
module Database.Relational.Query.Monad.Trans.JoinState (
-- * Join context
JoinContext, primeJoinContext, updateProduct, joinProduct

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

@ -10,6 +10,8 @@
-- Portability : unknown
--
-- This module defines monad transformer which qualify uniquely SQL table forms.
--
-- This is not public interface.
module Database.Relational.Query.Monad.Trans.Qualify (
-- * Qualify monad
Qualify, qualify,

3
relational-query/src/Database/Relational/Query/Monad/Trans/Restricting.hs
View File

@ -26,8 +26,7 @@ import Control.Applicative (Applicative, pure, (<$>))
import Control.Arrow (second)
import Data.DList (DList, toList)
import Database.Relational.Query.Internal.Sub (QueryRestriction, Projection)
import Database.Relational.Query.Sub (QueryRestriction, Projection)
import Database.Relational.Query.Monad.Class
(MonadQualify (..), MonadRestrict(..), MonadQuery (..), MonadAggregate(..))

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

@ -15,8 +15,8 @@ module Database.Relational.Query.Monad.Type
) where
import Database.Relational.Query.Internal.BaseSQL (Duplication)
import Database.Relational.Query.Internal.Sub (JoinProduct, QueryRestriction)
import Database.Relational.Query.Sub (JoinProduct, QueryRestriction)
import Database.Relational.Query.Context (Flat)
import Database.Relational.Query.Projection (Projection)
import Database.Relational.Query.Projectable (PlaceHolders)

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

@ -78,8 +78,8 @@ import Database.Record
HasColumnConstraint, NotNull)
import Database.Relational.Query.Internal.SQL (StringSQL, stringSQL, showStringSQL)
import Database.Relational.Query.Context (Flat, Aggregated, Exists, OverWindow)
import Database.Relational.Query.Context (Flat, Aggregated, Exists, OverWindow)
import Database.Relational.Query.Pure
(ShowConstantTermsSQL, showConstantTermsSQL', ProductConstructor (..))
import Database.Relational.Query.Pi (Pi)