From bcaa5249de80adc30c59ceddcd390dd2c7e82a27 Mon Sep 17 00:00:00 2001 From: Simon Hengel Date: Tue, 19 May 2026 07:38:44 +0700 Subject: [PATCH] Fix documentation of `Control.Concurrent.Async.Warden.shutdown` --- Control/Concurrent/Async/Warden.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Control/Concurrent/Async/Warden.hs b/Control/Concurrent/Async/Warden.hs index a3b19a5..78f5c12 100644 --- a/Control/Concurrent/Async/Warden.hs +++ b/Control/Concurrent/Async/Warden.hs @@ -54,10 +54,11 @@ create :: IO Warden create = Warden <$> newMVar (Just mempty) -- | Shutdown a 'Warden', calling 'cancel' on all owned threads. Subsequent --- calls to 'spawn' and 'shutdown' will be no-ops. --- +-- calls to 'spawn' will throw `WardenException`. Subsequent calls to +-- 'shutdown' will be a no-op. +-- -- Note that any exceptions thrown by the threads will be ignored. If you want --- exceptions to be propagated, either call `wait` explicitly on the 'Async', +-- exceptions to be propagated, either call `wait` explicitly on the 'Async', -- or use 'link'. shutdown :: Warden -> IO () shutdown (Warden v) = do