WIP

Author: jasagredo

cardano-config/cardano-config.cabal

@@ -10,7 +10,7 @@ license-file: LICENSE
 author: Javier Sagredo
 maintainer: [email protected]
 copyright:
-  INTERSECT 2025
+  INTERSECT 2026
 
 category: Data
 build-type: Simple
@@ -52,7 +52,6 @@ library
     filepath,
     iohk-monitoring,
     iproute,
-    mtl,
     network,
     optparse-applicative,
     sop-core,

cardano-config/src/Cardano/Configuration/File/Tracing.hs

@@ -244,7 +244,7 @@ parseTracer p obj = obj .:= Aeson.fromText (proxyName p)
 
 data TracingSystem
   = LegacyTracing TraceSelection
-  | TraceDispatcher TraceSelection
+  | TraceDispatcher
   deriving (Generic, Show)
 
 data TracingConfiguration = TracingConfiguration
@@ -263,7 +263,7 @@ instance FromJSON TracingConfiguration where
           Just True -> do
             newSystem <- v .:? "UseTraceDispatcher"
             let tr = case newSystem of
-                  Just True -> TraceDispatcher
+                  Just True -> const TraceDispatcher
                   _ -> LegacyTracing
             Just . tr <$> parseJSON (Object v)
           _ ->