cardano-ledger upgrade: accommodate new ledgerSlotNo field in LedgerEnv

IntersectMBO · Dec 20, 2024 · 66f1812 · 66f1812
1 parent a36a72f
commit 66f1812
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/ouroboros-consensus-cardano/src/unstable-shelley-testlib/Test/ThreadNet/TxGen/Shelley.hs b/ouroboros-consensus-cardano/src/unstable-shelley-testlib/Test/ThreadNet/TxGen/Shelley.hs
@@ -103,8 +103,9 @@ genTx _cfg slotNo TickedShelleyLedgerState { tickedShelleyLedgerState } genEnv =
     epochState = SL.nesEs tickedShelleyLedgerState
 
     ledgerEnv :: SL.LedgerEnv (MockShelley h)
-    ledgerEnv = SL.LedgerEnv {
-        ledgerSlotNo   = slotNo
+    ledgerEnv = SL.LedgerEnv
+      { ledgerEpochNo  = Nothing
+      , ledgerSlotNo   = slotNo
       , ledgerIx       = minBound
       , ledgerPp       = getPParams tickedShelleyLedgerState
       , ledgerAccount  = SL.esAccountState epochState