From e9b2d29f6696d92f17db2cf16bd739eb74d09f16 Mon Sep 17 00:00:00 2001
From: Jonathan Knowles <jonathan.knowles@iohk.io>
Date: Mon, 1 Aug 2022 07:58:46 +0000
Subject: [PATCH] Lower cost of joining and quitting in
 `STAKE_POOLS_{JOIN,QUIT}_01x`.

---
 .../src/Test/Integration/Scenario/API/Shelley/StakePools.hs   | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 2eee9d85794..0cd62edd209 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
@@ -1433,8 +1433,8 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do
     costOfJoining :: Context -> Natural
     costOfJoining ctx =
         if _mainEra ctx >= ApiBabbage
-        then costOf (\coeff cst -> 487 * coeff + cst) ctx
-        else costOf (\coeff cst -> 483 * coeff + cst) ctx
+        then costOf (\coeff cst -> 454 * coeff + cst) ctx
+        else costOf (\coeff cst -> 450 * coeff + cst) ctx
 
     costOfQuitting :: Context -> Natural
     costOfQuitting ctx =