Add an ignoreAll
commitbdd7189255ecdca5d5f3c453689f795d953bfe94
authorMichael Snoyman <michael@snoyman.com>
dateTue 26 Mar 2013, 21:49 (14 years ago)
parent550c3a3
warp/Network/Wai/Handler/Warp/Timeout.hs+1−1
@@ -74,7 +74,7 @@ stopManager (Manager ihandles) = E.mask_ $ do
7474 !handles <- I.atomicModifyIORef ihandles $ \h -> (error "Timeout manager stopped", h)
7575 mapM_ go handles
7676 where
77− go (Handle onTimeout _) = onTimeout
77+ go (Handle onTimeout _) = onTimeout `E.catch` ignoreAll
7878
7979ignoreAll :: E.SomeException -> IO ()
8080ignoreAll _ = return ()