CAD-2772 rebase on master

IntersectMBO · Jun 8, 2021 · 85cffec · 85cffec
1 parent 4792d63
commit 85cffec
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/LocalProtocolDefinition.hs b/bench/tx-generator/src/Cardano/Benchmarking/GeneratorTx/LocalProtocolDefinition.hs
@@ -124,9 +124,9 @@ startProtocol logConfigFile = do
   case ncProtocolConfig nc of
     NodeProtocolConfigurationByron _    -> error "NodeProtocolConfigurationByron not supported"
     NodeProtocolConfigurationShelley _  -> error "NodeProtocolConfigurationShelley not supported"
-    NodeProtocolConfigurationCardano byC shC hfC -> do
+    NodeProtocolConfigurationCardano byronConfig shelleyConfig alonzoConfig hardforkConfig -> do
         ptcl :: SomeConsensusProtocol <- firstExceptT (ProtocolInstantiationError . pack . show) $
-                  mkSomeConsensusProtocolCardano byC shC hfC Nothing
+                  mkSomeConsensusProtocolCardano byronConfig shelleyConfig alonzoConfig hardforkConfig Nothing
 
         loggingLayer <- mkLoggingLayer nc ptcl
         return (loggingLayer, ptcl)