diff --git a/changelog.md b/changelog.md
--- a/changelog.md
+++ b/changelog.md
@@ -1,3 +1,7 @@
+0.8.5.0
+=======
+* Add MonadResource instances (#121)[https://github.com/Soostone/katip/pull/121]
+
 0.8.4.0
 =======
 * Add support for unliftio-core 0.2 while maintaining backwards-compatible support for 0.1
diff --git a/katip.cabal b/katip.cabal
--- a/katip.cabal
+++ b/katip.cabal
@@ -1,5 +1,5 @@
 name:                katip
-version:             0.8.4.0
+version:             0.8.5.0
 synopsis:            A structured logging framework.
 description:
   Katip is a structured logging framework. See README.md for more details.
diff --git a/src/Katip/Core.hs b/src/Katip/Core.hs
--- a/src/Katip/Core.hs
+++ b/src/Katip/Core.hs
@@ -44,7 +44,8 @@
 import           Control.Monad.Trans.Except
 import           Control.Monad.Trans.Maybe
 import           Control.Monad.Trans.Reader
-import           Control.Monad.Trans.Resource      (ResourceT, transResourceT)
+import           Control.Monad.Trans.Resource      (MonadResource, ResourceT,
+                                                    transResourceT)
 import           Control.Monad.Trans.RWS.Lazy      (RWST, mapRWST)
 import qualified Control.Monad.Trans.RWS.Strict    as Strict (RWST, mapRWST)
 import           Control.Monad.Trans.State.Lazy    (StateT, mapStateT)
@@ -879,7 +880,8 @@
 -- opposed to implementing 'Katip' for your monad.
 newtype KatipT m a = KatipT { unKatipT :: ReaderT LogEnv m a }
   deriving ( Functor, Applicative, Monad, MonadIO
-           , MonadMask, MonadCatch, MonadThrow, MonadTrans, MonadBase b)
+           , MonadMask, MonadCatch, MonadThrow, MonadResource, MonadTrans
+           , MonadBase b)
 
 
 instance MonadIO m => Katip (KatipT m) where
diff --git a/src/Katip/Monadic.hs b/src/Katip/Monadic.hs
--- a/src/Katip/Monadic.hs
+++ b/src/Katip/Monadic.hs
@@ -58,7 +58,8 @@
 import           Control.Monad.Trans.Except        (ExceptT, mapExceptT)
 import           Control.Monad.Trans.Identity      (IdentityT, mapIdentityT)
 import           Control.Monad.Trans.Maybe         (MaybeT, mapMaybeT)
-import           Control.Monad.Trans.Resource      (ResourceT, transResourceT)
+import           Control.Monad.Trans.Resource      (MonadResource,
+                                                    ResourceT, transResourceT)
 import           Control.Monad.Trans.RWS           (RWST, mapRWST)
 import qualified Control.Monad.Trans.RWS.Strict    as Strict (RWST, mapRWST)
 import qualified Control.Monad.Trans.State.Strict  as Strict (StateT, mapStateT)
@@ -349,6 +350,7 @@
                , MonadWriter w
                , MonadError e
                , MonadPlus
+               , MonadResource
                , Alternative
                , MonadFix
                , MonadTrans