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

Simplify.

Browse Source
This commit is contained in:
Kei Hibino 2013-05-22 15:54:35 +09:00
parent 28720f20c3
commit 63caf22a7c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
relational-join/src/Database/Relational/Query/Join.hs
View File

@ -24,8 +24,7 @@ module Database.Relational.Query.Join (
import Prelude hiding (product)
import Control.Monad (liftM, ap)
import Data.Functor.Identity (Identity(Identity))
import Control.Monad.Trans.State (State, StateT(StateT), runState, modify)
import Control.Monad.Trans.State (State, state, runState, modify)
import Control.Applicative (Applicative (pure, (<*>)))
import Database.Relational.Query.Internal.Context
@ -60,7 +59,7 @@ runQueryJoin :: QueryJoin a -> Context -> (a, Context)
runQueryJoin = runState . queryJoinState
queryJoin :: (Context -> (a, Context)) -> QueryJoin a
queryJoin = QueryJoin . StateT . (Identity .)
queryJoin = QueryJoin . state
runQueryPrime :: QueryJoin a -> (a, Context)
runQueryPrime q = runQueryJoin q $ primeContext