git.iko.soy/squeal
on dev help sign in
cleanup
238f846Eitan Chatav
squeel-postgresql/src/Squeel/PostgreSQL/PQ.hs+1−4
compare with dev
unifiedsplit
@@ -130,10 +130,7 @@ instance MonadPQ PQ where
130 PQ $ \ (Connection conn) -> do
130 PQ $ \ (Connection conn) -> do
131 let
131 let
132 paramValues = encodings (Proxy :: Proxy ps) params
132 paramValues = encodings (Proxy :: Proxy ps) params
133− params' =
134− [ Just (param', LibPQ.Binary)
133+ params' = [ Just (param', LibPQ.Binary) | param' <- paramValues ]
135− | (param') <- paramValues
136− ]
137 result <- liftBase $
134 result <- liftBase $
138 LibPQ.execPrepared conn (renderPreparedStatement q) params' LibPQ.Binary
135 LibPQ.execPrepared conn (renderPreparedStatement q) params' LibPQ.Binary
139 return (Result <$> result, Connection conn)
136 return (Result <$> result, Connection conn)