Update eras/shelley/impl/src/Cardano/Ledger/Shelley/PoolRank.hs

Co-authored-by: Alexey Kuleshevich <alexey.kuleshevich@iohk.io>
IntersectMBO · Jan 27, 2025 · 1b6acdf · 1b6acdf
1 parent 2c8ac9f
commit 1b6acdf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/eras/shelley/impl/src/Cardano/Ledger/Shelley/PoolRank.hs b/eras/shelley/impl/src/Cardano/Ledger/Shelley/PoolRank.hs
@@ -362,7 +362,7 @@ nonMyopicStake ::
   Set (KeyHash 'StakePool) ->
   StakeShare
 nonMyopicStake pp (StakeShare s) (StakeShare sigma) (StakeShare t) kh topPools =
-  let z0 = 1 %. toIntegerNonZero ((pp ^. ppNOptL) `nonZeroOr` knownNonZeroBounded @1)
+  let z0 = 1 %. (toInteger (pp ^. ppNOptL) `nonZeroOr` knownNonZeroBounded @1)
    in if kh `Set.member` topPools
         then StakeShare (max (sigma + t) z0)
         else StakeShare (s + t)