Add SlotNo and BlockNo parameters to foldEpochState's callback

function. This gives access to the current `SlotNo` and `BlockNo` in a given requested block.
IntersectMBO · Mar 5, 2024 · 570fab1 · 570fab1
1 parent 10acff0
commit 570fab1
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/cardano-api/internal/Cardano/Api/LedgerState.hs b/cardano-api/internal/Cardano/Api/LedgerState.hs
@@ -1874,7 +1874,9 @@ foldEpochState
   -> s
   -- ^ an initial value for the condition state
   -> ( AnyNewEpochState
-      -> StateT s IO LedgerStateCondition
+         -> SlotNo -- ^ Current (not necessarily the modt recent) slot number
+         -> BlockNo -- ^ Current (not necessarily the modt recent) block number
+         -> StateT s IO LedgerStateCondition
      )
   -- ^ Condition you want to check against the new epoch state.
   --
@@ -2020,7 +2022,7 @@ foldEpochState nodeConfigFilePath socketPath validationMode terminationEpoch ini
                               -- There can be only one place where `takeMVar stateMv` exists otherwise this
                               -- code will deadlock!
                               condition <- bracket (takeMVar stateMv) (tryPutMVar stateMv) $ \(_prevCondition, previousState) -> do
-                                updatedState@(!newCondition, !_) <- runStateT (checkCondition newEpochState) previousState
+                                updatedState@(!newCondition, !_) <- runStateT (checkCondition newEpochState slotNo currBlockNo) previousState
                                 putMVar stateMv updatedState
                                 pure newCondition
                               -- Have we reached the termination epoch?