@@ -382,8 +382,8 @@ instance Show ProcessExitException where
382382showProcessExit :: ProcessExitException -> String
383383showProcessExit (ProcessExitException pid reason) =
384384 case messageFingerprint reason == fingerprint (undefined :: String) of
385− True -> "exit-from=" ++ (show pid) ++ ",reason=" ++ decoded
386− False -> "exit-from=" ++ show pid
385+ True -> "origin=" ++ (show pid) ++ ",reason=" ++ decoded
386+ False -> "origin=" ++ show pid
387387 where decoded :: String
388388 !decoded = decode (messageEncoding reason)
389389