Introduce bootstrap Hardfork switch

IntersectMBO · Apr 29, 2024 · 658003a · 658003a
1 parent 2e1d1ac
commit 658003a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/eras/shelley/impl/src/Cardano/Ledger/Shelley/HardForks.hs b/eras/shelley/impl/src/Cardano/Ledger/Shelley/HardForks.hs
@@ -5,6 +5,7 @@
 module Cardano.Ledger.Shelley.HardForks (
   aggregatedRewards,
   allowMIRTransfer,
+  bootstrapPhase,
   validatePoolRewardAccountNetID,
   forgoRewardPrefilter,
   translateUpperBoundForPlutusScripts,
@@ -64,3 +65,9 @@ forgoPointerAddressResolution ::
   ProtVer ->
   Bool
 forgoPointerAddressResolution pv = pvMajor pv > natVersion @8
+
+-- | Bootstrap phase
+bootstrapPhase ::
+  ProtVer ->
+  Bool
+bootstrapPhase pv = pvMajor pv == natVersion @9