diff --git a/Data/Conduit/Pool.hs b/Data/Conduit/Pool.hs
--- a/Data/Conduit/Pool.hs
+++ b/Data/Conduit/Pool.hs
@@ -7,6 +7,7 @@
     , P.Pool
     , P.createPool
     , P.withResource
+    , withResourceT
     ) where
 
 import qualified Data.Pool as P
@@ -25,6 +26,17 @@
     -- ^ Release this resource, either destroying it or returning it to the
     -- pool.
     }
+
+-- | Like 'P.withResource', but uses 'MonadResource' instead of 'MonadBaseControl'.
+--
+-- Since 0.1.1
+withResourceT :: MonadResource m => P.Pool a -> (a -> m b) -> m b
+withResourceT pool f = do
+    mr <- takeResource pool
+    b <- f $ mrValue mr
+    mrReuse mr True
+    mrRelease mr
+    return b
 
 -- | Take a resource from the pool and register a release action.
 takeResource :: MonadResource m => P.Pool a -> m (ManagedResource m a)
diff --git a/pool-conduit.cabal b/pool-conduit.cabal
--- a/pool-conduit.cabal
+++ b/pool-conduit.cabal
@@ -1,5 +1,5 @@
 name:            pool-conduit
-version:         0.1.0.3
+version:         0.1.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>