Remove redundant parenthesis

IntersectMBO · Aug 22, 2023 · 38a312a · 38a312a
1 parent 2958b71
commit 38a312a
Showing 1 changed file with 1 addition and 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
@@ -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