Add Disposable instance for Maybe

queezle42 · Aug 11, 2024 · ddbae29 · ddbae29
1 parent 86af67c
commit ddbae29
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/quasar/src/Quasar/Disposer/Core.hs b/quasar/src/Quasar/Disposer/Core.hs
@@ -66,6 +66,10 @@ class Disposable a where
 instance Disposable (Disposer, a) where
   getDisposer (disposer, _) = disposer
 
+instance Disposable a => Disposable (Maybe a) where
+  getDisposer Nothing = mempty
+  getDisposer (Just x) = getDisposer x
+
 
 isDisposed :: Disposable a => a -> Future '[] ()
 isDisposed r = toFuture (getDisposer r)