diff --git src/Database/PG/Query/Pool.hs src/Database/PG/Query/Pool.hs
index 271771a..fcf9071 100644
--- src/Database/PG/Query/Pool.hs
+++ src/Database/PG/Query/Pool.hs
@@ -145,7 +145,7 @@ withConn :: (FromPGTxErr e, FromPGConnErr e)
 withConn pool txm f =
   catchConnErr action
   where
-    action  = RP.withResource pool $
+    action  = withLoggingResource pool $
              \connRsrc -> runTxOnConn connRsrc txm f
 
 catchConnErr :: (FromPGConnErr e, MonadError e m, MonadBaseControl IO m)
@@ -179,7 +179,7 @@ runTx' :: (FromPGTxErr e, FromPGConnErr e)
        -> ExceptT e IO a
 runTx' pool tx = do
   res <- liftIO $ runExceptT $ catchConnErr $
-         RP.withResource pool $ \connRsrc -> execTx connRsrc tx
+         withLoggingResource pool $ \connRsrc -> execTx connRsrc tx
   either throwError return res
 
 runTxOnConn' :: PGConn
@@ -194,3 +194,11 @@ sqlFromFile :: FilePath -> Q Exp
 sqlFromFile fp = do
   contents <- qAddDependentFile fp >> runIO (readFile fp)
   [| fromString contents |]
+
+withLoggingResource pool f = do
+  x <- RP.tryWithResource pool f
+  case x of
+    Nothing -> do
+      liftIO $ putStrLn "BLOCKING!"
+      RP.withResource pool f
+    Just b -> return b

Thoughts?