d149929 · distributed-process

git.iko.soy/distributed-process

on master help sign in

make exit/kill exceptions show text that is easy to parse

d149929Tim Watson14 years ago

distributed-process/src/Control/Distributed/Process/Internal/Primitives.hs+3−2

@@ -362,7 +362,8 @@ data ProcessKillException =

362

363instance Exception ProcessKillException

364instance Show ProcessKillException where

365− show (ProcessKillException pid reason) = "Kill by " ++ show pid ++ ": " ++ reason

365+ show (ProcessKillException pid reason) =

366+ "killed-by=" ++ show pid ++ ",reason=" ++ reason

366

367

367-- | Graceful request to exit a process

368-- | Graceful request to exit a process

368exit :: Serializable a => ProcessId -> a -> Process ()

369exit :: Serializable a => ProcessId -> a -> Process ()

@@ -379,7 +380,7 @@ data ProcessExitException =

379

380

380instance Exception ProcessExitException

381instance Exception ProcessExitException

381instance Show ProcessExitException where

382instance Show ProcessExitException where

382− show (ProcessExitException pid _) = "Exit by " ++ show pid

383+ show (ProcessExitException pid _) = "exit-from=" ++ show pid

383

384

384-- | Catches ProcessExitException

385-- | Catches ProcessExitException

385catchExit :: forall a b . (Show a, Serializable a) => Process b -> (ProcessId -> a -> Process b) -> Process b

386catchExit :: forall a b . (Show a, Serializable a) => Process b -> (ProcessId -> a -> Process b) -> Process b