From 599af8f1283f5a5ae132366b195f4f0fc3b644fe Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Wed, 1 Sep 2021 19:36:10 +0200
Subject: [PATCH] Rename captureDisposable to captureTask
Rename captureDisposable_ to captureDisposable
---
src/Quasar/Disposable.hs | 11 +++++------
1 file changed, 5 insertions(+), 6 deletions(-)
diff --git a/src/Quasar/Disposable.hs b/src/Quasar/Disposable.hs
index a8b0e41..c15bfce 100644
--- a/src/Quasar/Disposable.hs
+++ b/src/Quasar/Disposable.hs
@@ -14,7 +14,7 @@ module Quasar.Disposable (
withOnResourceManager,
onResourceManager,
captureDisposable,
- captureDisposable_,
+ captureTask,
-- ** ResourceManager
IsResourceManager(..),
@@ -263,20 +263,19 @@ instance {-# OVERLAPPABLE #-} MonadResourceManager m => MonadResourceManager (Re
askResourceManager = lift askResourceManager
-
onResourceManager :: (IsResourceManager a) => a -> ReaderT ResourceManager m r -> m r
onResourceManager target action = runReaderT action (toResourceManager target)
-captureDisposable :: MonadResourceManager m => m (Awaitable a) -> m (Task a)
-captureDisposable action = do
+captureTask :: MonadResourceManager m => m (Awaitable a) -> m (Task a)
+captureTask action = do
-- TODO improve performance by only creating a new resource manager when two or more disposables are attached
resourceManager <- newResourceManager
awaitable <- localResourceManager resourceManager $ action
pure $ Task (toDisposable resourceManager) awaitable
-captureDisposable_ :: MonadResourceManager m => m () -> m Disposable
-captureDisposable_ action = do
+captureDisposable :: MonadResourceManager m => m () -> m Disposable
+captureDisposable action = do
-- TODO improve performance by only creating a new resource manager when two or more disposables are attached
resourceManager <- newResourceManager
localResourceManager resourceManager action
--
GitLab