diff --git a/src/Quasar/Core.hs b/src/Quasar/Core.hs
index 2663c6c9a7835f8f92e66f721ef1ad4c8521725b..0b3b5c989e03753c4415249ffbb9eb3c5e723f71 100644
--- a/src/Quasar/Core.hs
+++ b/src/Quasar/Core.hs
@@ -84,6 +84,9 @@ class MonadIO m => HasResourceManager m where
 instance HasResourceManager AsyncIO where
   askResourceManager = AsyncIO ask
 
+instance MonadIO m => HasResourceManager (ReaderT ResourceManager m) where
+  askResourceManager = ask
+
 
 awaitResult :: IsAwaitable r a => AsyncIO a -> AsyncIO r
 awaitResult = (await =<<)