use simpler description when showing ProcessExitException

haskell-distributed · Jan 17, 2013 · 5f1c3f5 · 5f1c3f5
1 parent ba0622a
commit 5f1c3f5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs b/distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs
@@ -382,8 +382,8 @@ instance Show ProcessExitException where
 showProcessExit :: ProcessExitException -> String
 showProcessExit (ProcessExitException pid reason) =
   case messageFingerprint reason == fingerprint (undefined :: String) of
-    True  -> "exit-from=" ++ (show pid) ++ ",reason=" ++ decoded
-    False -> "exit-from=" ++ show pid
+    True  -> "origin=" ++ (show pid) ++ ",reason=" ++ decoded
+    False -> "origin=" ++ show pid
   where decoded :: String
         !decoded = decode (messageEncoding reason)