Module renamed.

--HG--
rename : relational-join/src/Database/Relational/Query/Internal/Context.hs => relational-join/src/Database/Relational/Query/Monad/Trans/JoinState.hs

relational-join/relational-join.cabal

@@ -53,7 +53,7 @@ library
                        Database.Relational.Query.Internal.ShowS
                        Database.Relational.Query.Internal.Product
                        Database.Relational.Query.Internal.RestrictContext
-                       Database.Relational.Query.Internal.Context
+                       Database.Relational.Query.Monad.Trans.JoinState
                        Database.Relational.Query.Internal.AggregatingContext
                        Database.Relational.Query.Internal.OrderingContext
                        Database.Relational.Query.Monad.Qualify

relational-join/src/Database/Relational/Query/Monad/Trans/Join.hs

@@ -23,9 +23,8 @@ import Control.Monad.Trans.Class (MonadTrans (lift))
 import Control.Monad.Trans.State (modify, StateT, runStateT)
 import Control.Applicative (Applicative)
 
-import Database.Relational.Query.Internal.Context
-  (Context, primeContext, updateProduct)
-import qualified Database.Relational.Query.Internal.Context as Context
+import Database.Relational.Query.Monad.Trans.JoinState
+  (Context, primeContext, updateProduct, composeSQL)
 import Database.Relational.Query.Internal.Product (NodeAttr, restrictProduct, growProduct)
 import Database.Relational.Query.Projection (Projection)
 import qualified Database.Relational.Query.Projection as Projection
@@ -67,10 +66,10 @@ updateJoinRestriction e = updateContext (updateProduct d)  where
 
 {-
 takeProduct :: QueryJoin (Maybe QueryProductNode)
-takeProduct =  queryCore Context.takeProduct
+takeProduct =  queryCore State.takeProduct
 
 restoreLeft :: QueryProductNode -> NodeAttr -> QueryJoin ()
-restoreLeft pL naR = updateContext $ Context.restoreLeft pL naR
+restoreLeft pL naR = updateContext $ State.restoreLeft pL naR
 -}
 
 -- | Joinable query instance.
@@ -104,4 +103,4 @@ unsafeQueryMergeWithAttr =  unsafeMergeAnother
 expandSQL :: Monad m => QueryJoin m (Projection r, st) -> m ((String, Projection r), st)
 expandSQL qp = do
   ((pj, st), c) <- runQueryPrime qp
-  return ((Context.composeSQL pj c, pj), st)
+  return ((composeSQL pj c, pj), st)

relational-join/src/Database/Relational/Query/Monad/Trans/JoinState.hs

@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- |
--- Module      : Database.Relational.Query.Internal.Context
+-- Module      : Database.Relational.Query.Monad.Trans.JoinState
 -- Copyright   : 2013 Kei Hibino
 -- License     : BSD3
 --
@@ -9,10 +9,9 @@
 -- Stability   : experimental
 -- Portability : unknown
 --
--- This module provides context definition for
--- "Database.Relational.Query.Monad.Trans.Join" and
--- "Database.Relational.Query.Monad.Trans.Ordering".
-module Database.Relational.Query.Internal.Context (
+-- This module provides state definition for
+-- "Database.Relational.Query.Monad.Trans.Join".
+module Database.Relational.Query.Monad.Trans.JoinState (
   -- * Join context
   Context,