From 18807d07207b06b88ec937e43bab71587709ab20 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Sat, 4 Sep 2021 22:59:12 +0200
Subject: [PATCH] Add throwToResourceManager to IsResourceManager

---
 src/Quasar/Disposable.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/Quasar/Disposable.hs b/src/Quasar/Disposable.hs
index d6128f0..dd53501 100644
--- a/src/Quasar/Disposable.hs
+++ b/src/Quasar/Disposable.hs
@@ -52,6 +52,7 @@ import Data.Sequence
 import Data.Sequence qualified as Seq
 import Quasar.Awaitable
 import Quasar.Prelude
+import System.IO (hPutStrLn, stderr)
 
 
 -- * Disposable
@@ -228,9 +229,13 @@ class IsResourceManager a where
 
   --subResourceManager :: MonadResourceManager m => m (DisposableResourceThingy)
 
+  throwToResourceManager :: Exception e => a -> e -> IO ()
+
 
 instance IsResourceManager ResourceManager where
   toResourceManager = id
+  -- TODO delegate to parent
+  throwToResourceManager _ ex = hPutStrLn stderr $ displayException ex
 
 class (MonadAwait m, MonadMask m, MonadIO m) => MonadResourceManager m where
   -- | Get the underlying resource manager.
-- 
GitLab