new tracing: forward compatibility to config record changes

Author: mgmeier

bench/tx-generator/src/Cardano/Benchmarking/Tracer.hs

@@ -182,19 +182,15 @@ configSilent :: ConfigOption
 configSilent = ConfSeverity (SeverityF Nothing)
 
 initialTraceConfig :: TraceConfig
-initialTraceConfig = TraceConfig {
-      tcOptions = Map.fromList
+initialTraceConfig = emptyTraceConfig 
+    { tcOptions = Map.fromList
           [ ([], [configSilent])
           , setMaxDetail TracerNameBench
           , ([TracerNameSubmitN2N], [configSilent])
           , setMaxDetail TracerNameConnect
           , setMaxDetail TracerNameSubmit
           ]
     , tcForwarder = Just defaultForwarder {tofQueueSize = 4096}
-    , tcNodeName = Nothing
-    , tcResourceFrequency = Nothing
-    , tcMetricsPrefix = Nothing
-    , tcLedgerMetricsFrequency = Nothing
     }
   where
     setMaxDetail :: Text -> ([Text], [ConfigOption])

cardano-tracer/src/Cardano/Tracer/MetaTrace.hs

@@ -292,14 +292,8 @@ configTracerTracer defSeverity tr = do
   configureTracers configReflection initialTraceConfig [tr]
  where
    initialTraceConfig :: TraceConfig
-   initialTraceConfig =
-     TraceConfig
-     { tcForwarder         = Nothing
-     , tcNodeName          = Nothing
-     , tcResourceFrequency = Nothing
-     , tcLedgerMetricsFrequency = Nothing
-     , tcMetricsPrefix     = Nothing
-     , tcOptions = Map.fromList
+   initialTraceConfig = emptyTraceConfig
+     { tcOptions = Map.fromList
                    [ ([],         [ConfSeverity defSeverity])
                    , (["Tracer"], [ConfDetail DMaximum])
                    ]