CAD-2770 new tracing: annotate the example tracer with types

IntersectMBO · May 13, 2021 · 2292c9c · 2292c9c
1 parent dc3f7e7
commit 2292c9c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -301,7 +301,9 @@ mkTracers _ TracingOnNew{} _ _ _ = do
     [trL2]
 
   pure Tracers
-    { chainDBTracer = Tracer $ L2.traceWith trL2
+    { chainDBTracer = Tracer
+        (L2.traceWith (trL2 :: L2.Trace IO (ChainDB.TraceEvent blk))
+          :: ChainDB.TraceEvent blk -> IO ())
 
     , consensusTracers = Consensus.Tracers
       { Consensus.chainSyncClientTracer = nullTracer