git.iko.soy/squeal
on dev help sign in
connectPoll
977a38aEitan Chatav
squeal-postgresql/src/Squeal/PostgreSQL/PQ.hs+3−3
compare with dev
unifiedsplit
@@ -199,9 +199,9 @@ instance MonadBase IO io => MonadPQ schema (PQ schema schema io) where
199 LibPQ.exec conn ("DEALLOCATE " <> temp <> ";")
199 LibPQ.exec conn ("DEALLOCATE " <> temp <> ";")
200 return ((), Connection conn)
200 return ((), Connection conn)
201
201
202− connectPoll = undefined--PQ $ \ (Connection conn) -> do
202+ connectPoll = PQ $ \ (Connection conn) -> do
203− -- pollingStatus <- liftBase $ connectPoll conn
203+ pollingStatus <- liftBase $ LibPQ.connectPoll conn
204− -- return (pollingStatus, Connection conn)
204+ return (pollingStatus, Connection conn)
205
205
206instance Monad m => Applicative (PQ schema schema m) where
206instance Monad m => Applicative (PQ schema schema m) where
207 pure x = PQ $ \ conn -> pure (x, conn)
207 pure x = PQ $ \ conn -> pure (x, conn)