Fix Conway trigger hard fork

Author: kderme

cardano-db-sync/src/Cardano/DbSync/Config.hs

@@ -92,6 +92,7 @@ coalesceConfig pcfg ncfg adjustGenesisPath = do
       , dncMaryHardFork = ncMaryHardFork ncfg
       , dncAlonzoHardFork = ncAlonzoHardFork ncfg
       , dncBabbageHardFork = ncBabbageHardFork ncfg
+      , dncConwayHardFork = ncConwayHardFork ncfg
       }
 
 mkAdjustPath :: SyncPreConfig -> (FilePath -> FilePath)

cardano-db-sync/src/Cardano/DbSync/Config/Cardano.hs

@@ -30,7 +30,6 @@ import Cardano.Ledger.Conway.Genesis
 import Cardano.Ledger.Keys
 import Cardano.Ledger.Shelley.Translation (emptyFromByronTranslationContext)
 import Cardano.Prelude (panic)
-import Cardano.Slotting.Slot
 import Control.Monad.Trans.Except (ExceptT)
 import Data.Word (Word64)
 import Ouroboros.Consensus.Block.Forging
@@ -133,7 +132,7 @@ mkProtocolInfoCardano ge shelleyCred =
         (Consensus.ProtocolTransitionParamsShelleyBased () $ dncMaryHardFork dnc)
         (Consensus.ProtocolTransitionParamsShelleyBased alonzoGenesis $ dncAlonzoHardFork dnc)
         (Consensus.ProtocolTransitionParamsShelleyBased () $ dncBabbageHardFork dnc)
-        (Consensus.ProtocolTransitionParamsShelleyBased (ConwayGenesis (GenDelegs mempty)) (Consensus.TriggerHardForkAtEpoch (EpochNo 34))) -- TODO: Conway Fix
+        (Consensus.ProtocolTransitionParamsShelleyBased (ConwayGenesis (GenDelegs mempty)) $ dncConwayHardFork dnc) -- TODO: Conway Fix
 
 shelleyPraosNonce :: ShelleyConfig -> Nonce
 shelleyPraosNonce sCfg = Nonce (Crypto.castHash . unGenesisHashShelley $ scGenesisHash sCfg)

cardano-db-sync/src/Cardano/DbSync/Config/Node.hs

@@ -45,6 +45,8 @@ data NodeConfig = NodeConfig
     ncAlonzoHardFork :: !Shelley.TriggerHardFork
   , -- Babbage hardfok parameters
     ncBabbageHardFork :: !Shelley.TriggerHardFork
+  , -- Conway hardfok parameters
+    ncConwayHardFork :: !Shelley.TriggerHardFork
   }
 
 parseNodeConfig :: ByteString -> NodeConfig
@@ -77,6 +79,7 @@ instance FromJSON NodeConfig where
           <*> parseMaryHardForkEpoch o
           <*> parseAlonzoHardForkEpoch o
           <*> parseBabbageHardForkEpoch o
+          <*> parseConwayHardForkEpoch o
 
       parseByronProtocolVersion :: Object -> Parser Byron.ProtocolVersion
       parseByronProtocolVersion o =
@@ -119,3 +122,10 @@ instance FromJSON NodeConfig where
           [ Shelley.TriggerHardForkAtEpoch <$> o .: "TestBabbageHardForkAtEpoch"
           , pure $ Shelley.TriggerHardForkAtVersion 7 -- Mainnet default
           ]
+
+      parseConwayHardForkEpoch :: Object -> Parser Shelley.TriggerHardFork
+      parseConwayHardForkEpoch o =
+        asum
+          [ Shelley.TriggerHardForkAtEpoch <$> o .: "TestConwayHardForkAtEpoch"
+          , pure $ Shelley.TriggerHardForkAtVersion 9 -- Mainnet default
+          ]

cardano-db-sync/src/Cardano/DbSync/Config/Types.hs

@@ -105,6 +105,7 @@ data SyncNodeConfig = SyncNodeConfig
   , dncMaryHardFork :: !TriggerHardFork
   , dncAlonzoHardFork :: !TriggerHardFork
   , dncBabbageHardFork :: !TriggerHardFork
+  , dncConwayHardFork :: !TriggerHardFork
   }
 
 data SyncPreConfig = SyncPreConfig