Log every outcome as part of the every protocol transition

input-output-hk · Nov 29, 2022 · c304b32 · c304b32
1 parent 57386de
commit c304b32
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/hydra-node/src/Hydra/Node.hs b/hydra-node/src/Hydra/Node.hs
@@ -129,7 +129,9 @@ stepHydraNode ::
 stepHydraNode tracer node = do
   e <- nextEvent eq
   traceWith tracer $ BeginEvent party e
-  atomically (processNextEvent node e) >>= \case
+  outcome <- atomically (processNextEvent node e)
+  traceWith tracer (LogicOutcome party outcome)
+  case outcome of
     -- TODO(SN): Handling of 'Left' is untested, i.e. the fact that it only
     -- does trace and not throw!
     Error err -> traceWith tracer (ErrorHandlingEvent party e err)