Stop running resource freeing functions within uninterruptibleMask

Author: arybczak

CHANGELOG.md

@@ -2,6 +2,7 @@
 * Use STM based lockless implementation as it results in much better throughput
   in a multi-threaded environment when number of stripes is not equal to the
   number of capabilities (in particular with a single stripe).
+* Stop running resource freeing functions within `uninterruptibleMask`.
 
 # resource-pool-0.4.0.0 (2023-01-16)
 * Require `poolMaxResources` to be not smaller than the number of stripes.

src/Data/Pool/Internal.hs

@@ -279,9 +279,10 @@ cleanStripe isStale free mstripe = mask_ $ do
     pure $ map entry stale
   -- We need to ignore exceptions in the 'free' function, otherwise if an
   -- exception is thrown half-way, we leak the rest of the resources. Also,
-  -- asynchronous exceptions need to be hard masked here since freeing a
-  -- resource might in theory block.
-  uninterruptibleMask_ . forM_ stale $ try @SomeException . free
+  -- asynchronous exceptions need to be hard masked here we need to run 'free'
+  -- for all resources.
+  uninterruptibleMask $ \release -> do
+    forM_ stale $ try @SomeException . release . free
 
 signal :: forall a. Stripe a -> Maybe a -> STM (Stripe a)
 signal stripe ma =