From c7b02be65d46500a264a574a27ccf3eae819333c Mon Sep 17 00:00:00 2001 From: Jens Nolte <git@queezle.net> Date: Thu, 12 Aug 2021 17:30:15 +0200 Subject: [PATCH] Add some documentation --- src/Quasar/Core.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Quasar/Core.hs b/src/Quasar/Core.hs index ef45823..c07fa22 100644 --- a/src/Quasar/Core.hs +++ b/src/Quasar/Core.hs @@ -255,8 +255,10 @@ boundDisposable action = do resourceManager <- askResourceManager attachDisposeAction resourceManager action +-- | Creates an `Disposable` that is bound to a ResourceManager. It will automatically be disposed when the resource manager is disposed. attachDisposeAction :: MonadIO m => ResourceManager -> IO (Awaitable ()) -> m Disposable attachDisposeAction = undefined +-- | Attaches a dispose action to a ResourceManager. It will automatically be run when the resource manager is disposed. attachDisposeAction_ :: MonadIO m => ResourceManager -> IO (Awaitable ()) -> m () attachDisposeAction_ resourceManager action = void $ attachDisposeAction resourceManager action -- GitLab