From ff90e33960813b4982a728deda5f4f1775e89926 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 9 Aug 2021 01:55:17 +0200
Subject: [PATCH] Add HasResourceManager instance for ReaderT

---
 src/Quasar/Core.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Quasar/Core.hs b/src/Quasar/Core.hs
index 2663c6c..0b3b5c9 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 =<<)
-- 
GitLab