Rename mkProtocolsTracers to mkProtocolTracers

IntersectMBO · Feb 18, 2020 · 179ee61 · 179ee61
1 parent c97efbe
commit 179ee61
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/cardano-node/src/Cardano/Tracing/Tracers.hs b/cardano-node/src/Cardano/Tracing/Tracers.hs
@@ -195,7 +195,7 @@ mkTracers traceOptions tracer = do
     , consensusTracers
         = mkConsensusTracers forgeTracers traceOptions
     , protocolTracers
-        = mkProtocolsTracers traceOptions
+        = mkProtocolTracers traceOptions
     , ipSubscriptionTracer
         = tracerOnOff (traceIpSubscription traceOptions)
           $ annotateSeverity
@@ -446,8 +446,8 @@ mkTracers traceOptions tracer = do
         TraceStartTimeInTheFuture (SystemStart start) toWait ->
           "Waiting " <> show toWait <> " until genesis start time at " <> show start
 
-    mkProtocolsTracers :: TraceOptions -> ProtocolTracers' peer blk DeserialiseFailure (Tracer IO)
-    mkProtocolsTracers traceOpts = ProtocolTracers
+    mkProtocolTracers :: TraceOptions -> ProtocolTracers' peer blk DeserialiseFailure (Tracer IO)
+    mkProtocolTracers traceOpts = ProtocolTracers
       { ptChainSyncTracer
         = tracerOnOff (traceChainSyncProtocol traceOpts)
         $ showTracing $ withName "ChainSyncProtocol" tracer