Replace a use of div with quot
This actually makes about a 7% difference in performance!
commit4569ab6fe299ec8d3b174609230e620fc74cdb17
authorBryan O'Sullivan <bos@serpentine.com>
dateTue 19 Mar 2013, 20:45 (14 years ago)
parent34b7603
Data/Text/Lazy/Builder/Int.hs+1−1
@@ -106,7 +106,7 @@ posDecimal marr off0 ds v0 = go (off0 + ds - 1) v0
106106 | v < 10 = unsafeWrite marr off (i2w v)
107107 | otherwise = do
108108 unsafeWrite marr off (i2w (v `rem` 10))
109− go (off-1) (v `div` 10)
109+ go (off-1) (v `quot` 10)
110110
111111minus, zero :: Word16
112112{-# INLINE minus #-}