From ddbae299c7b2d4979d72ea33879f6d655421e5c2 Mon Sep 17 00:00:00 2001 From: Jens Nolte Date: Sun, 11 Aug 2024 04:18:58 +0200 Subject: [PATCH] Add Disposable instance for Maybe --- quasar/src/Quasar/Disposer/Core.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/quasar/src/Quasar/Disposer/Core.hs b/quasar/src/Quasar/Disposer/Core.hs index 28d3f20..eef30a1 100644 --- 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)