renaming last _poolPubKey to _poolId

This should have been a part of 91edca5, It is not clear how it passed CI.
IntersectMBO · Oct 28, 2020 · 46fb1c6 · 46fb1c6
1 parent 978bdf6
commit 46fb1c6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/Rewards.hs b/shelley/chain-and-ledger/executable-spec/src/Shelley/Spec/Ledger/Rewards.hs
@@ -533,7 +533,7 @@ nonMyopicMemberRew
   t
   topPools
   (PerformanceEstimate p) =
-    let nm = nonMyopicStake pp s sigma t (_poolPubKey pool) topPools
+    let nm = nonMyopicStake pp s sigma t (_poolId pool) topPools
         f = maxPool pp rPot (unStakeShare nm) (unStakeShare s)
         fHat = floor (p * (fromRational . coinToRational) f)
      in memberRew (Coin fHat) pool t nm