19da6d3 · squeal · git.iko.soy

git.iko.soy/squeal

pqExecNil

commit19da6d36a71c3c83df3537a37a931040737b1971 authorEitan Chatav <eitan.chatav@gmail.com> dateTue 4 Jul 2017, 00:09 (9 years ago) parent8d6baeb

2 files changed+9−3

compare with dev

unifiedsplit

squeel-postgresql/exe/Example.hs+1−1 squeel-postgresql/src/Squeel/PostgreSQL/PQ.hs+8−2

squeel-postgresql/exe/Example.hs+1−1

@@ -40,7 +40,7 @@ main = do

4040 &>> insertInto #table1 ( 3 `As` #col1 :* 4 `As` #col2 :* Nil )

4141 Char8.putStrLn "querying"

4242 connection2 <- flip execPQ connection1 $ do

43− Just result <- pqExecParams (select (starFrom #table1)) Nil

43+ Just result <- pqExecNil $ select $ starFrom #table1

4444 runMaybeT . runExceptT . flip runValue result $ do

4545 value00 <- getValue (RowNumber 0) colNum0

4646 value01 <- getValue (RowNumber 0) colNum1

squeel-postgresql/src/Squeel/PostgreSQL/PQ.hs+8−2

@@ -73,7 +73,7 @@ class MonadPQ pq where

7373 -> pq db0 db1 io (Maybe (Result '[]))

7474

7575 pqExecParams

76− :: (MonadBase IO io, ToOids ps, AllZip HasEncoding ps xs, All Top ps)

76+ :: (MonadBase IO io, ToOids ps, AllZip HasEncoding ps xs)

7777 => Statement ps ys db0 db1

7878 -> NP I xs

7979 -> pq db0 db1 io (Maybe (Result ys))

@@ -85,7 +85,7 @@ class MonadPQ pq where

8585 -> pq db0 db1 io (Maybe (Result '[]), PreparedStatement ps xs db0 db1)

8686

8787 pqExecPrepared

88− :: (MonadBase IO io, AllZip HasEncoding ps xs, All Top ps)

88+ :: (MonadBase IO io, AllZip HasEncoding ps xs)

8989 => PreparedStatement ps ys db0 db1

9090 -> NP I xs

9191 -> pq db0 db1 io (Maybe (Result ys))

@@ -97,6 +97,12 @@ class MonadPQ pq where

9797 -> pq db0 db2 io (Maybe (Result '[]))

9898pq1 &>> statement2 = pqBind (\ _ -> pqExec statement2) pq1

9999

100+pqExecNil

101+ :: (MonadPQ pq, MonadBase IO io)

102+ => Statement '[] ys db0 db1

103+ -> pq db0 db1 io (Maybe (Result ys))

104+pqExecNil statement = pqExecParams statement Nil

105+

100106instance MonadPQ PQ where

101107

102108 pqAp (PQ f) (PQ x) = PQ $ \ conn -> do