From 275827e54d60051058ce4ea2d84ea243174df7f5 Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Thu, 10 Feb 2022 20:25:31 +0100
Subject: [PATCH] Add Resource instances for Disposer and ResourceManager

---
 src/Quasar/Resources.hs | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/Quasar/Resources.hs b/src/Quasar/Resources.hs
index 8683371..c06672a 100644
--- a/src/Quasar/Resources.hs
+++ b/src/Quasar/Resources.hs
@@ -39,6 +39,9 @@ data Disposer
   = FnDisposer Unique TIOWorker ExceptionChannel DisposerState Finalizers
   | ResourceManagerDisposer ResourceManager
 
+instance Resource Disposer where
+  getDisposer = id
+
 type DisposeFn = IO (Awaitable ())
 
 
@@ -125,6 +128,9 @@ data ResourceManagerState
   = ResourceManagerNormal (TVar (HashMap Unique Disposer)) TIOWorker
   | ResourceManagerDisposing (Awaitable [DisposeDependencies])
   | ResourceManagerDisposed
+
+instance Resource ResourceManager where
+  getDisposer = ResourceManagerDisposer
   
 
 newResourceManagerSTM :: TIOWorker -> STM ResourceManager
-- 
GitLab