git.iko.soy/text
on master help sign in
Cast to widest fixed integer to avoid truncation trouble
663a117Bryan O'Sullivan
Data/Text/Lazy/Builder/Int.hs+1−1
compare with master
unifiedsplit
@@ -119,7 +119,7 @@ i2w v = zero + fromIntegral v
119
119
120countDigits :: (Integral a) => a -> Int
120countDigits :: (Integral a) => a -> Int
121{-# INLINE countDigits #-}
121{-# INLINE countDigits #-}
122−countDigits = go 1
122+countDigits v0 = go 1 (fromIntegral v0 :: Word64)
123 where go !k v
123 where go !k v
124 | v < 10 = k
124 | v < 10 = k
125 | v < 100 = k + 1
125 | v < 100 = k + 1