@@ -382,8 +382,8 @@ instance Show ProcessExitException where
382showProcessExit :: ProcessExitException -> String
382showProcessExit :: ProcessExitException -> String
383showProcessExit (ProcessExitException pid reason) =
383showProcessExit (ProcessExitException pid reason) =
384 case messageFingerprint reason == fingerprint (undefined :: String) of
384 case messageFingerprint reason == fingerprint (undefined :: String) of
385− True -> "exit-from=" ++ (show pid) ++ ",reason=" ++ decoded
385+ True -> "origin=" ++ (show pid) ++ ",reason=" ++ decoded
386− False -> "exit-from=" ++ show pid
386+ False -> "origin=" ++ show pid
387 where decoded :: String
387 where decoded :: String
388 !decoded = decode (messageEncoding reason)
388 !decoded = decode (messageEncoding reason)