Merge pull request #881 from input-output-hk/erikd/proto-ver

db-sync: Ignore minor version of ProtoVer in rewardBlockEra
IntersectMBO · Oct 12, 2021 · 70ab190 · 70ab190
2 parents 15a434b + 7b1bbd2
commit 70ab190
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/cardano-sync/src/Cardano/Sync/Era/Shelley/Generic/Rewards.hs b/cardano-sync/src/Cardano/Sync/Era/Shelley/Generic/Rewards.hs
@@ -80,11 +80,11 @@ rewardsStakeCreds = Map.keysSet . rwdRewards
 rewardBlockEra :: Shelley.ProtVer -> BlockEra
 rewardBlockEra pv =
   case pv of
-    Shelley.ProtVer 2 0 -> Shelley
-    Shelley.ProtVer 3 0 -> Allegra
-    Shelley.ProtVer 4 0 -> Mary
-    Shelley.ProtVer 5 0 -> Alonzo
-    Shelley.ProtVer 6 0 -> Alonzo
+    Shelley.ProtVer 2 _ -> Shelley
+    Shelley.ProtVer 3 _ -> Allegra
+    Shelley.ProtVer 4 _ -> Mary
+    Shelley.ProtVer 5 _ -> Alonzo
+    Shelley.ProtVer 6 _ -> Alonzo
     x -> panic $ "rewardBlockEra: " <> textShow x
 
 rewardProtoVer :: ExtLedgerState CardanoBlock -> Shelley.ProtVer