diff --git a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs index 69500aaa35f..d337a84df9d 100644 --- a/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs +++ b/lib/core-integration/src/Test/Integration/Scenario/API/Shelley/StakePools.hs @@ -548,6 +548,7 @@ spec = do it "contains and is sorted by non-myopic-rewards" $ \ctx -> do eventually "eventually shows non-zero rewards" $ do Right pools@[pool1,_pool2,pool3] <- snd <$> listPools ctx + print pools -- FIXME Temporary for debugging CI. let rewards = view (#metrics . #nonMyopicMemberRewards) (rewards <$> pools) `shouldBe` (rewards <$> sortOn (Down . rewards) pools)