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