no longer rethrowing the exception in catchExit
commit84bba3069f3b9f12a38bd639c2171241deead4f3
authorRodLogic <dev@rodlogic.net>
dateMon 3 Dec 2012, 12:26 (14 years ago)
parentcdedc03
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−4
@@ -380,10 +380,7 @@ catchExit act exitHandler = catch act handleExit
380380 where
381381 handleExit ex@(ProcessExitException from msg) =
382382 if messageFingerprint msg == fingerprint (undefined :: a)
383− then do
384− let reason = decoded
385− _ <- exitHandler from reason
386− liftIO $ throwIO ex
383+ then exitHandler from decoded
387384 else liftIO $ throwIO ex
388385 where
389386 decoded :: a