From e06d7278a3d720fe14d4124311dad87ce9dc3cbc Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sun, 5 Sep 2021 04:00:04 +0200
Subject: [PATCH] Fix implementing IsResourceManager over toResourceManager

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 787ac7a..429c9ad 100644
--- a/src/Quasar/Disposable.hs
+++ b/src/Quasar/Disposable.hs
@@ -225,12 +225,14 @@ entryIsEmpty (ResourceManagerEntry var) = isEmptyTMVar var
 
 class IsResourceManager a where
   toResourceManager :: a -> ResourceManager
+
   -- TODO move to class
   --attachDisposable :: (IsDisposable b, MonadIO m) => a -> b -> m ()
 
   --subResourceManager :: MonadResourceManager m => m (DisposableResourceThingy)
 
   throwToResourceManager :: Exception e => a -> e -> IO ()
+  throwToResourceManager = throwToResourceManager . toResourceManager
 
 
 instance IsResourceManager ResourceManager where
-- 
GitLab