@@ -186,10 +186,6 @@ hexDigit n
186186 | otherwise = singleton $! toEnum (fromIntegral n + 87)
187187{-# INLINE hexDigit #-}
188188
189−int :: Int -> Builder
190−int = decimal
191−{-# INLINE int #-}
192−
193189data T = T !Integer !Int
194190
195191integer :: Int -> Integer -> Builder
@@ -248,6 +244,10 @@ integer base i
248244 r = fromInteger y
249245 putB _ = mempty
250246
247+ int :: Int -> Builder
248+ int x | base == 10 = decimal x
249+ | otherwise = hexadecimal x
250+
251251 pblock = loop maxDigits
252252 where
253253 loop !d !n