Update lib/core-integration/src/Test/Integration/Scenario/API/Shelley…

…/StakePools.hs Co-authored-by: Jonathan Knowles <jonathan.knowles@iohk.io>
cardano-foundation · Oct 22, 2020 · a326a4b · a326a4b
1 parent 85d6cf8
commit a326a4b
Showing 1 changed file with 3 additions and 3 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
@@ -669,9 +669,9 @@ spec = describe "SHELLEY_STAKE_POOLS" $ do
         $ it "Can quit a joined pool" $ \ctx -> do
             w <- fixtureWallet ctx
 
-            pool:_ <- map (view #id) . view #pools . snd
-                    <$> unsafeRequest @(ApiListStakePools ApiStakePool)
-                        ctx (Link.listStakePools arbitraryStake) Empty
+            pool:_ <- map (view #id) . view #pools . snd <$>
+                unsafeRequest @(ApiListStakePools ApiStakePool)
+                    ctx (Link.listStakePools arbitraryStake) Empty
 
             joinStakePool @n ctx pool (w, fixturePassphrase) >>= flip verify
                 [ expectResponseCode HTTP.status202