Add only restrict context monad type.

This commit is contained in:
Kei Hibino 2013-08-14 17:22:10 +09:00
parent 00a0aebb18
commit 6863b47ad4

View File

@ -10,13 +10,21 @@
-- This module defines core query type.
module Database.Relational.Query.Monad.Type (
-- * Core query monad
QueryCore
QueryCore,
-- * Monad to restrict target records.
SimpleRestrict
) where
import Data.Functor.Identity (Identity)
import Database.Relational.Query.Monad.Qualify (Qualify)
import Database.Relational.Query.Monad.Trans.Join (QueryJoin)
import Database.Relational.Query.Monad.Trans.Restrict (Restrict)
-- | Core query monad type used by simple query and aggregated query.
-- | Core query monad type used from simple query and aggregated query.
type QueryCore = Restrict (QueryJoin Qualify)
-- | Restrict only monad type used from update statement and delete statement.
type SimpleRestrict = Restrict Identity