Fix a bug in queryPoolState

This bug manifested itself in current pool parameters being returned
instead of the future ones.

Author: lehins

libs/cardano-ledger-api/CHANGELOG.md

@@ -18,6 +18,10 @@
 
 * Remove the `State.Query` module and `getFilteredDelegationsAndRewardAccounts` function.
 
+## 1.12.1.0
+
+* Fix a bug in `queryPoolState`, where current Pool parameters where returned instead of the future ones.
+
 ## 1.12.0.0
 
 * Add `upgradeNativeScript` method to `EraApi`

libs/cardano-ledger-api/src/Cardano/Ledger/Api/State/Query.hs

@@ -469,7 +469,8 @@ mkQueryPoolStateResult ::
 mkQueryPoolStateResult f ps =
   QueryPoolStateResult
     { qpsrStakePoolParams = Map.mapWithKey stakePoolStateToStakePoolParams restrictedStakePools
-    , qpsrFutureStakePoolParams = Map.mapWithKey stakePoolStateToStakePoolParams restrictedStakePools
+    , qpsrFutureStakePoolParams =
+        Map.mapWithKey stakePoolStateToStakePoolParams (f $ psFutureStakePools ps)
     , qpsrRetiring = f $ psRetiring ps
     , qpsrDeposits = Map.map (fromCompact . spsDeposit) restrictedStakePools
     }