@@ -199,9 +199,9 @@ instance MonadBase IO io => MonadPQ schema (PQ schema schema io) where
199199 LibPQ.exec conn ("DEALLOCATE " <> temp <> ";")
200200 return ((), Connection conn)
201201
202− connectPoll = undefined--PQ $ \ (Connection conn) -> do
203− -- pollingStatus <- liftBase $ connectPoll conn
204− -- return (pollingStatus, Connection conn)
202+ connectPoll = PQ $ \ (Connection conn) -> do
203+ pollingStatus <- liftBase $ LibPQ.connectPoll conn
204+ return (pollingStatus, Connection conn)
205205
206206instance Monad m => Applicative (PQ schema schema m) where
207207 pure x = PQ $ \ conn -> pure (x, conn)