cardano-ledger upgrade: accommodate the new VRFVerKeyHash type

IntersectMBO · Dec 6, 2024 · 72f9aab · 72f9aab
1 parent 7de8899
commit 72f9aab
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/cardano-node/src/Cardano/Node/Tracing/Era/Shelley.hs b/cardano-node/src/Cardano/Node/Tracing/Era/Shelley.hs
@@ -18,6 +18,7 @@
 module Cardano.Node.Tracing.Era.Shelley () where
 
 import           Cardano.Api (textShow)
+import           Cardano.Api.Ledger (fromVRFVerKeyHash)
 import qualified Cardano.Api.Shelley as Api
 
 import qualified Cardano.Crypto.Hash.Class as Crypto
@@ -666,7 +667,7 @@ instance
              ]
   forMachine _dtal (DuplicateGenesisVRFDELEG vrfKeyHash) =
     mconcat [ "kind" .= String "DuplicateGenesisVRFDELEG"
-             , "keyHash" .= vrfKeyHash
+             , "keyHash" .= fromVRFVerKeyHash vrfKeyHash
              ]
   forMachine _dtal MIRTransferNotCurrentlyAllowed =
     mconcat [ "kind" .= String "MIRTransferNotCurrentlyAllowed"