Fix ledger event test

CardanoSolutions · Sep 26, 2023 · e9103b9 · e9103b9
1 parent fc0d262
commit e9103b9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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 =