better tracing

IntersectMBO · Apr 1, 2023 · d27af5b · d27af5b
1 parent 4aee1ef
commit d27af5b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/marconi-core/src/Marconi/Core/Experiment.hs b/marconi-core/src/Marconi/Core/Experiment.hs
@@ -282,8 +282,9 @@ startRunner chan tokens (Runner ix isRollback extractEvent tracer) = do
           case me of
                Nothing -> pure ()
                Just (point, event) -> do
-                   traceWith tracer (Issue event)
                    indexEvent point event
+                   traceWith tracer (Issue event)
+                   traceWith tracer (Process point)
 
       handleRollback p = do
           indexer <- STM.atomically $ STM.takeTMVar ix