From 38a312a0fa3716329f6d10911d71c41ea6150295 Mon Sep 17 00:00:00 2001 From: Alexey Kuleshevich Date: Fri, 18 Aug 2023 17:08:43 +0200 Subject: [PATCH] Remove redundant parenthesis --- eras/conway/impl/src/Cardano/Ledger/Conway/Rules/NewEpoch.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/NewEpoch.hs b/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/NewEpoch.hs index e9d2cb13d9d..c9fc737b840 100644 --- a/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/NewEpoch.hs +++ b/eras/conway/impl/src/Cardano/Ledger/Conway/Rules/NewEpoch.hs @@ -166,7 +166,7 @@ newEpochTransition = do -- the number of stake credentials by 8*k (8, rather than 10, to be sure we finish a bit early) k <- liftSTS $ asks securityParameter -- Maximum number of blocks we are allowed to roll back let stakeSize = VMap.size (es2 ^. epochStateStakeDistrL) - let pulseSize = max 1 (ceiling (((fromIntegral stakeSize) :: Ratio Word64) / (8 * ((fromIntegral k) :: Ratio Word64)))) + let pulseSize = max 1 (ceiling ((fromIntegral stakeSize :: Ratio Word64) / (8 * (fromIntegral k :: Ratio Word64)))) let es3 = es2 & epochStateDRepDistrL .~ freshDRepPulser pulseSize es2 -- Install a new (as yet unpulsed) DRepDistr pulser let adaPots = totalAdaPotsES es2 tellEvent $ TotalAdaPotsEvent adaPots