From 9f0a5ca459314b0a017a9af296ad319f3512b4ed Mon Sep 17 00:00:00 2001 From: Daan Rijks Date: Tue, 15 Jul 2025 12:09:39 +0200 Subject: [PATCH] Add @since annotation to cancelMany --- Control/Concurrent/Async/Internal.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Control/Concurrent/Async/Internal.hs b/Control/Concurrent/Async/Internal.hs index 11e3432..e6716ca 100644 --- a/Control/Concurrent/Async/Internal.hs +++ b/Control/Concurrent/Async/Internal.hs @@ -298,6 +298,8 @@ cancel a@(Async t _) = throwTo t AsyncCancelled <* waitCatch a -- | Cancel multiple asynchronous actions by throwing the @AsyncCancelled@ -- exception to each of them in turn, then waiting for all the `Async` threads -- to complete. +-- +-- @since 2.2.5 cancelMany :: [Async a] -> IO () cancelMany as = do mapM_ (\(Async t _) -> throwTo t AsyncCancelled) as