wip

Author: erikd

cardano-db-sync/cardano-db-sync.cabal

@@ -154,6 +154,7 @@ library
                       , cardano-client
                       , cardano-crypto
                       , cardano-crypto-class
+                      , cardano-crypto-praos
                       , cardano-crypto-wrapper
                       , cardano-data
                       , cardano-db

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

@@ -37,6 +37,7 @@ import Ouroboros.Consensus.Cardano.Node
 import Ouroboros.Consensus.Config (TopLevelConfig (..), emptyCheckpointsMap)
 import Ouroboros.Consensus.Ledger.Basics (LedgerConfig)
 import Ouroboros.Consensus.Node.ProtocolInfo (ProtocolInfo)
+import Ouroboros.Consensus.Cardano.Block (StandardCrypto)
 import qualified Ouroboros.Consensus.Node.ProtocolInfo as Consensus
 import Ouroboros.Consensus.Shelley.Node (ShelleyGenesis (..))
 
@@ -85,7 +86,7 @@ mkTopLevelConfig cfg = Consensus.pInfoConfig $ fst $ mkProtocolInfoCardano cfg [
 -- mkProtocolCardano :: GenesisConfig -> Protocol m CardanoBlock CardanoProtocol
 mkProtocolInfoCardano ::
   GenesisConfig ->
-  [Consensus.ShelleyLeaderCredentials c] -> -- this is not empty only in tests
+  [Consensus.ShelleyLeaderCredentials StandardCrypto] -> -- this is not empty only in tests
   (ProtocolInfo CardanoBlock, IO [BlockForging IO CardanoBlock])
 mkProtocolInfoCardano genesisConfig shelleyCred =
   protocolInfoCardano $

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

@@ -140,8 +140,8 @@ data SyncNodeConfig = SyncNodeConfig
   , dncConwayGenesisFile :: !(Maybe GenesisFile)
   , dncConwayGenesisHash :: !(Maybe GenesisHashConway)
   , dncByronProtocolVersion :: !Byron.ProtocolVersion
-  , dncShelleyHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (Praos StandardCrypto) ShelleyEra))
-  , dncAllegraHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (Praos StandardCrypto) AllegraEra))
+  , dncShelleyHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) ShelleyEra))
+  , dncAllegraHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) AllegraEra))
   , dncMaryHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) MaryEra))
   , dncAlonzoHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (TPraos StandardCrypto) AlonzoEra))
   , dncBabbageHardFork :: !(CardanoHardForkTrigger (ShelleyBlock (Praos StandardCrypto) BabbageEra))

cardano-db-sync/src/Cardano/DbSync/Util/Bech32.hs

@@ -16,6 +16,7 @@ module Cardano.DbSync.Util.Bech32 (
 import Cardano.Crypto.Hash.Class (hashFromBytes, hashToBytes)
 import Cardano.Crypto.VRF.Class (rawDeserialiseVerKeyVRF, rawSerialiseVerKeyVRF)
 import Cardano.Ledger.Crypto (VRF (..), StandardCrypto ())
+import Cardano.Crypto.VRF.Praos (PraosVRF)
 import Cardano.Ledger.Keys (KeyHash (..), KeyRole (..), VerKeyVRF ())
 import Cardano.Prelude
 import Codec.Binary.Bech32
@@ -52,7 +53,7 @@ deserialiseFromBech32 s = decodeLenient' s >>= dataPartToBytes'
 
 
 -- | Serialise a Verification Key to bech32 address
-serialiseVerKeyVrfToBech32 :: VerKeyVRF (VRF StandardCrypto) -> Text
+serialiseVerKeyVrfToBech32 :: VerKeyVRF (VRF PraosVRF) -> Text
 serialiseVerKeyVrfToBech32 =
   serialiseToBech32 "vrf_vk" . rawSerialiseVerKeyVRF