@@ -507,7 +507,10 @@ instance Show ProcessKillException where
507507
508508traceNotifyDied :: LocalNode -> Identifier -> DiedReason -> NC ()
509509traceNotifyDied node ident reason =
510− traceNcEventFmt node " " ["[node-controller]", (show ident), (show reason)]
510+ case reason of
511+ DiedNormal -> return ()
512+ _ -> traceNcEventFmt node " "
513+ ["[node-controller]", (show ident), (show reason)]
511514
512515traceNcEvent :: LocalNode -> String -> NC ()
513516traceNcEvent node msg = liftIO $ traceEventIO node msg