@@ -83,11 +83,7 @@ ignoreAll _ = return ()
84-- | Killing timeout manager immediately without firing onTimeout.
84-- | Killing timeout manager immediately without firing onTimeout.
85killManager :: Manager -> IO ()
85killManager :: Manager -> IO ()
86−killManager mgr = E.mask_ (reaperStop mgr >>= mapM_ fire)
86+killManager = reaperKill
88− fire (Handle actionRef _) = do
89− onTimeout <- I.readIORef actionRef
90− onTimeout `E.catch` ignoreAll
92----------------------------------------------------------------
88----------------------------------------------------------------