From bfe496191b048bbdb18a4fb17b49dbb2b32e974b Mon Sep 17 00:00:00 2001
From: Neil Mayhew <neil.mayhew@iohk.io>
Date: Thu, 28 Nov 2024 18:19:06 -0700
Subject: [PATCH] cardano-ledger upgrade: accommodate new ledgerSlotNo field in
 LedgerEnv

---
 .../unstable-shelley-testlib/Test/ThreadNet/TxGen/Shelley.hs | 5 +++--
 1 file changed, 3 insertions(+), 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
index 732c8726dc..90d8dd5dad 100644
--- 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