git.iko.soy/squeal
on dev help sign in
runQuery
6d46abbEitan Chatav
squeal-postgresql/exe/Example.hs+1−1
compare with dev
unifiedsplit
@@ -64,7 +64,7 @@ main = do
64 _insertResult <- manipulateParams insert
64 _insertResult <- manipulateParams insert
65 (1::Int32,2::Int32,3::Int32,4::Int32)
65 (1::Int32,2::Int32,3::Int32,4::Int32)
66 liftBase $ Char8.putStrLn "querying"
66 liftBase $ Char8.putStrLn "querying"
67− result <- query $
67+ result <- runQuery $
68 selectStar (from (Table (#table1 `As` #table1)))
68 selectStar (from (Table (#table1 `As` #table1)))
69 value00 <- getValue (RowNumber 0) (columnNumber @0) result
69 value00 <- getValue (RowNumber 0) (columnNumber @0) result
70 value01 <- getValue (RowNumber 0) (columnNumber @1) result
70 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
135 manipulate :: Manipulation schema '[] ys -> pq (Result ys)
135 manipulate :: Manipulation schema '[] ys -> pq (Result ys)
136 manipulate statement = manipulateParams statement ()
136 manipulate statement = manipulateParams statement ()
137
137
138− queryParams
138+ runQueryParams
139 :: ToParams x params
139 :: ToParams x params
140 => Query schema params ys -> x -> pq (Result ys)
140 => Query schema params ys -> x -> pq (Result ys)
141− queryParams = manipulateParams . queryStatement
141+ runQueryParams = manipulateParams . queryStatement
142
142
143− query :: Query schema '[] ys -> pq (Result ys)
143+ runQuery :: Query schema '[] ys -> pq (Result ys)
144− query q = queryParams q ()
144+ runQuery q = runQueryParams q ()
145
145
146 traversePrepared
146 traversePrepared
147 :: (ToParams x params, Traversable list)
147 :: (ToParams x params, Traversable list)