diff --git a/Data/Text/Lazy/Builder/Int.hs b/Data/Text/Lazy/Builder/Int.hs index 88ef0adbec13d3c14786c379238f7cbadd358309..1432d6c56bb99f076c349cbc06956e207bf117de 100644 --- a/Data/Text/Lazy/Builder/Int.hs +++ b/Data/Text/Lazy/Builder/Int.hs @@ -186,10 +186,6 @@ hexDigit n | otherwise = singleton $! toEnum (fromIntegral n + 87) {-# INLINE hexDigit #-} -int :: Int -> Builder -int = decimal -{-# INLINE int #-} - data T = T !Integer !Int integer :: Int -> Integer -> Builder @@ -248,6 +244,10 @@ integer base i r = fromInteger y putB _ = mempty + int :: Int -> Builder + int x | base == 10 = decimal x + | otherwise = hexadecimal x + pblock = loop maxDigits where loop !d !n