log each call to Supervisor.tryRestart

Author: hyperthunk

src/Control/Distributed/Process/Platform/Supervisor.hs

@@ -953,6 +953,8 @@ tryRestart :: ProcessId
            -> DiedReason
            -> Process (ProcessAction State)
 tryRestart pid state active' spec reason = do
+  logEntry Log.debug $
+    mkReport "tryRestart" pid (childKey spec) (show reason)
   case state ^. strategy of
     RestartOne _ -> tryRestartChild pid state active' spec reason
     strat        -> do