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