6d46abb · squeal · git.iko.soy

runQuery

commit6d46abbe830f272b1165c6eac2489f286b67ca7e authorEitan Chatav <eitan.chatav@gmail.com> dateFri 25 Aug 2017, 10:14 (9 years ago) parente888092

2 files changed+5−5

unifiedsplit

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

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

6464 _insertResult <- manipulateParams insert

6565 (1::Int32,2::Int32,3::Int32,4::Int32)

6666 liftBase $ Char8.putStrLn "querying"

67− result <- query $

67+ result <- runQuery $

6868 selectStar (from (Table (#table1 `As` #table1)))

6969 value00 <- getValue (RowNumber 0) (columnNumber @0) result

7070 value01 <- getValue (RowNumber 0) (columnNumber @1) result

squeal-postgresql/src/Squeal/PostgreSQL/PQ.hs+4−4

@@ -135,13 +135,13 @@ class Monad pq => MonadPQ schema pq | pq -> schema where

135135 manipulate :: Manipulation schema '[] ys -> pq (Result ys)

136136 manipulate statement = manipulateParams statement ()

137137

138− queryParams

138+ runQueryParams

139139 :: ToParams x params

140140 => Query schema params ys -> x -> pq (Result ys)

141− queryParams = manipulateParams . queryStatement

141+ runQueryParams = manipulateParams . queryStatement

142142

143− query :: Query schema '[] ys -> pq (Result ys)

144− query q = queryParams q ()

143+ runQuery :: Query schema '[] ys -> pq (Result ys)

144+ runQuery q = runQueryParams q ()

145145

146146 traversePrepared

147147 :: (ToParams x params, Traversable list)