@@ -114,11 +114,11 @@ class MonadPQ db m | m -> db where
114114 -> m (Maybe (Result ys))
115115 pqExecNil statement = pqExecParams statement Nil
116116
117− pqExecPrepared
118− :: AllZip HasEncoding ps xs
119− => PreparedStatement ps ys db db
120− -> NP I xs
121− -> m (Maybe (Result ys))
117+ -- pqExecPrepared
118+ -- :: AllZip HasEncoding ps xs
119+ -- => PreparedStatement ps ys db db
120+ -- -> NP I xs
121+ -- -> m (Maybe (Result ys))
122122
123123instance AtkeyPQ PQ where
124124
@@ -158,14 +158,14 @@ instance MonadBase IO io => MonadPQ db (PQ db db io) where
158158 result <- liftBase $ LibPQ.execParams conn q params' LibPQ.Binary
159159 return (Result <$> result, Connection conn)
160160
161− pqExecPrepared (q :: PreparedStatement ps ys db0 db1) params =
162− PQ $ \ (Connection conn) -> do
163− let
164− paramValues = encodings (Proxy :: Proxy ps) params
165− params' = [ Just (param', LibPQ.Binary) | param' <- paramValues ]
166− result <- liftBase $
167− LibPQ.execPrepared conn (renderPreparedStatement q) params' LibPQ.Binary
168− return (Result <$> result, Connection conn)
161+ -- pqExecPrepared (q :: PreparedStatement ps ys db0 db1) params =
162+ -- PQ $ \ (Connection conn) -> do
163+ -- let
164+ -- paramValues = encodings (Proxy :: Proxy ps) params
165+ -- params' = [ Just (param', LibPQ.Binary) | param' <- paramValues ]
166+ -- result <- liftBase $
167+ -- LibPQ.execPrepared conn (renderPreparedStatement q) params' LibPQ.Binary
168+ -- return (Result <$> result, Connection conn)
169169
170170instance Monad m => Applicative (PQ db db m) where
171171 pure x = PQ $ \ conn -> pure (x, conn)