git.iko.soy/distributed-process
on master help sign in
no longer rethrowing the exception in catchExit
84bba30RodLogic
distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+1−4
compare with master
unifiedsplit
@@ -380,10 +380,7 @@ catchExit act exitHandler = catch act handleExit
380 where
380 where
381 handleExit ex@(ProcessExitException from msg) =
381 handleExit ex@(ProcessExitException from msg) =
382 if messageFingerprint msg == fingerprint (undefined :: a)
382 if messageFingerprint msg == fingerprint (undefined :: a)
383− then do
384− let reason = decoded
385− _ <- exitHandler from reason
383+ then exitHandler from decoded
386− liftIO $ throwIO ex
387 else liftIO $ throwIO ex
384 else liftIO $ throwIO ex
388 where
385 where
389 decoded :: a
386 decoded :: a