@@ -106,7 +106,7 @@ posDecimal marr off0 ds v0 = go (off0 + ds - 1) v0
106 | v < 10 = unsafeWrite marr off (i2w v)
106 | v < 10 = unsafeWrite marr off (i2w v)
107 | otherwise = do
107 | otherwise = do
108 unsafeWrite marr off (i2w (v `rem` 10))
108 unsafeWrite marr off (i2w (v `rem` 10))
109− go (off-1) (v `div` 10)
109+ go (off-1) (v `quot` 10)
111minus, zero :: Word16
111minus, zero :: Word16
112{-# INLINE minus #-}
112{-# INLINE minus #-}