git.iko.soy/distributed-process
on master help sign in
trace only abnormal process exits
927d2bcTim Watson
distributed-process/src/Control/Distributed/Process/Node.hs+4−1
compare with master
unifiedsplit
@@ -507,7 +507,10 @@ instance Show ProcessKillException where
507
507
508traceNotifyDied :: LocalNode -> Identifier -> DiedReason -> NC ()
508traceNotifyDied :: LocalNode -> Identifier -> DiedReason -> NC ()
509traceNotifyDied node ident reason =
509traceNotifyDied node ident reason =
510+ case reason of
511+ DiedNormal -> return ()
512+ _ -> traceNcEventFmt node " "
510− traceNcEventFmt node " " ["[node-controller]", (show ident), (show reason)]
513+ ["[node-controller]", (show ident), (show reason)]
511
514
512traceNcEvent :: LocalNode -> String -> NC ()
515traceNcEvent :: LocalNode -> String -> NC ()
513traceNcEvent node msg = liftIO $ traceEventIO node msg
516traceNcEvent node msg = liftIO $ traceEventIO node msg