@@ -130,10 +130,7 @@ instance MonadPQ PQ where
130130 PQ $ \ (Connection conn) -> do
131131 let
132132 paramValues = encodings (Proxy :: Proxy ps) params
133− params' =
134− [ Just (param', LibPQ.Binary)
135− | (param') <- paramValues
136− ]
133+ params' = [ Just (param', LibPQ.Binary) | param' <- paramValues ]
137134 result <- liftBase $
138135 LibPQ.execPrepared conn (renderPreparedStatement q) params' LibPQ.Binary
139136 return (Result <$> result, Connection conn)