From 0283fb6c43c2154501bf29d958ba6748de437e62 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 30 Aug 2021 23:40:13 +0200
Subject: [PATCH] Add function to replace resource manager

Co-authored-by: Jan Beinke <git@janbeinke.com>
---
 src/Quasar/Disposable.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Quasar/Disposable.hs b/src/Quasar/Disposable.hs
index 2d776cc..b6df3c7 100644
--- a/src/Quasar/Disposable.hs
+++ b/src/Quasar/Disposable.hs
@@ -211,9 +211,11 @@ instance HasResourceManager ResourceManager where
 
 class (MonadMask m, MonadIO m) => MonadResourceManager m where
   askResourceManager :: m ResourceManager
+  localResourceManager :: ResourceManager -> m a -> m a
 
 instance (MonadMask m, MonadIO m) => MonadResourceManager (ReaderT ResourceManager m) where
   askResourceManager = ask
+  localResourceManager = local . const
 
 
 onResourceManager :: (HasResourceManager a) => a -> ReaderT ResourceManager m r -> m r
-- 
GitLab