Merge pull request #5385 from IntersectMBO/td/fix-nightly

Fix stakepool-test in nightly build

Author: teodanciu

eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Rules/Deleg.hs

@@ -53,7 +53,7 @@ import Test.QuickCheck (
 import Test.Tasty (TestTree)
 import Test.Tasty.QuickCheck (testProperty)
 
--- | Various properties of the POOL STS Rule, tested on longer traces
+-- | Various properties of the DELEG STS Rule, tested on longer traces
 -- (double the default length)
 tests ::
   forall era.

eras/shelley/test-suite/src/Test/Cardano/Ledger/Shelley/Rules/Pool.hs

@@ -134,7 +134,7 @@ poolRegistrationProp
               , counterexample
                   "New StakePoolParams are registered in future Params map"
                   ( Map.lookup hk (psFutureStakePools targetSt)
-                      === Just (mkStakePoolState (sps ^. spsDepositL) (sps ^. spsDelegatorsL) stakePoolParams)
+                      === Just (mkStakePoolState (sps ^. spsDepositL) mempty stakePoolParams)
                   )
               , counterexample
                   "StakePoolParams are removed in 'retiring'"