diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,8 @@
+0.5.4.0
+=======
+* Loosen bounds on resourcet and template-haskell.
+* Add convenience function askLoggerIO.
+
 0.5.3.0
 =======
 * Add MonadUnliftIO instances.
diff --git a/katip.cabal b/katip.cabal
--- a/katip.cabal
+++ b/katip.cabal
@@ -1,5 +1,5 @@
 name:                katip
-version:             0.5.3.0
+version:             0.5.4.0
 synopsis:            A structured logging framework.
 description:
   Katip is a structured logging framework. See README.md for more details.
@@ -64,7 +64,7 @@
                , hostname >=1.0 && <1.1
                , old-locale >= 1.0 && < 1.1
                , string-conv >= 0.1 && < 0.2
-               , template-haskell >= 2.8 && < 2.13
+               , template-haskell >= 2.8 && < 2.14
                , text >= 0.11 && <1.3
                , time >= 1 && < 1.9
                , transformers >= 0.3 && < 0.6
@@ -73,7 +73,7 @@
                , monad-control >= 1.0 && < 1.1
                , mtl >= 2.0 && < 2.3
                , transformers-base >= 0.3 && < 0.6
-               , resourcet >= 1.1 && < 1.2
+               , resourcet >= 1.1 && < 1.3
                , scientific >= 0.3.3.0
                , microlens >= 0.2.0.0 && < 0.5
                , microlens-th >= 0.1.0.0 && < 0.5
diff --git a/src/Katip/Monadic.hs b/src/Katip/Monadic.hs
--- a/src/Katip/Monadic.hs
+++ b/src/Katip/Monadic.hs
@@ -35,6 +35,7 @@
     , katipAddContext
     , KatipContextTState(..)
     , NoLoggingT
+    , askLoggerIO
     ) where
 
 
@@ -486,3 +487,13 @@
   localKatipContext = const id
   getKatipNamespace = pure mempty
   localKatipNamespace = const id
+
+
+-- | Convenience function for when you have to integrate with a third
+-- party API that takes a generic logging function as an argument.
+askLoggerIO :: (Applicative m, KatipContext m) => m (Severity -> LogStr -> IO ())
+askLoggerIO = do
+  ctx <- getKatipContext
+  ns <- getKatipNamespace
+  logEnv <- getLogEnv
+  pure (\sev msg -> runKatipT logEnv $ logF ctx ns sev msg)