From e9103b98fd5aafcd2328fd108938216590058c9d Mon Sep 17 00:00:00 2001
From: Arnaud Bailly <arnaud.bailly@iohk.io>
Date: Tue, 26 Sep 2023 08:04:01 +0200
Subject: [PATCH] Fix ledger event test

---
 cardano-node/test/Test/Cardano/Node/LedgerEvent.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs b/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs
index 79d7aa6343e..80d12ceb189 100644
--- a/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs
+++ b/cardano-node/test/Test/Cardano/Node/LedgerEvent.hs
@@ -24,7 +24,7 @@ genEvent =
   AnchoredEvent
    <$> (toShort <$> Gen.bytes (Range.constant 32 32))
    <*> (fromIntegral <$> Gen.word64 Range.constantBounded)
-   <*> (LedgerStartAtEpoch . fromIntegral <$> Gen.word16 Range.constantBounded)
+   <*> (LedgerNewEpochEvent . LedgerStartAtEpoch . fromIntegral <$> Gen.word16 Range.constantBounded)
 
 tests :: IO Bool
 tests =