git.iko.soy/text
on master help sign in
Fix a longstanding latent bug
fe48963Bryan O'Sullivan
Data/Text/Lazy/Builder/Int.hs+4−4
compare with master
unifiedsplit
@@ -186,10 +186,6 @@ hexDigit n
186 | otherwise = singleton $! toEnum (fromIntegral n + 87)
186 | otherwise = singleton $! toEnum (fromIntegral n + 87)
187{-# INLINE hexDigit #-}
187{-# INLINE hexDigit #-}
188
188
189−int :: Int -> Builder
190−int = decimal
191−{-# INLINE int #-}
192−
193data T = T !Integer !Int
189data T = T !Integer !Int
194
190
195integer :: Int -> Integer -> Builder
191integer :: Int -> Integer -> Builder
@@ -248,6 +244,10 @@ integer base i
248 r = fromInteger y
244 r = fromInteger y
249 putB _ = mempty
245 putB _ = mempty
250
246
247+ int :: Int -> Builder
248+ int x | base == 10 = decimal x
249+ | otherwise = hexadecimal x
250+
251 pblock = loop maxDigits
251 pblock = loop maxDigits
252 where
252 where
253 loop !d !n
253 loop !d !n