From d0815ebf949d3f3554ff3764c7d0e02dfcf1d66e Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 23 Sep 2021 19:46:42 +0200
Subject: [PATCH] Add MonadFix constraint to MonadResourceManager

---
 src/Quasar/ResourceManager.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Quasar/ResourceManager.hs b/src/Quasar/ResourceManager.hs
index 967ff0a..d455e73 100644
--- a/src/Quasar/ResourceManager.hs
+++ b/src/Quasar/ResourceManager.hs
@@ -93,7 +93,7 @@ instance IsResourceManager ResourceManager where
   -- TODO delegate to parent
   throwToResourceManager _ ex = hPutStrLn stderr $ displayException ex
 
-class (MonadAwait m, MonadMask m, MonadIO m) => MonadResourceManager m where
+class (MonadAwait m, MonadMask m, MonadIO m, MonadFix m) => MonadResourceManager m where
   -- | Get the underlying resource manager.
   askResourceManager :: m ResourceManager
 
@@ -116,7 +116,7 @@ withSubResourceManagerM action =
   bracket newResourceManager (await <=< dispose) \scope -> localResourceManager scope action
 
 
-instance (MonadAwait m, MonadMask m, MonadIO m) => MonadResourceManager (ReaderT ResourceManager m) where
+instance (MonadAwait m, MonadMask m, MonadIO m, MonadFix m) => MonadResourceManager (ReaderT ResourceManager m) where
   localResourceManager resourceManager = local (const (toResourceManager resourceManager))
 
   askResourceManager = ask
-- 
GitLab