@@ -54,12 +54,7 @@ decimal :: Integral a => a -> Builder
5454{-# RULES "decimal/Word32" decimal = positive :: Word32 -> Builder #-}
5555{-# RULES "decimal/Word64" decimal = positive :: Word64 -> Builder #-}
5656{-# RULES "decimal/Integer" decimal = integer 10 :: Integer -> Builder #-}
57−decimal i
58− | i < 0 = singleton '-' <>
59− if i <= -128
60− then positive (-(i `quot` 10)) <> digit (-(i `rem` 10))
61− else positive (-i)
62− | otherwise = positive i
57+decimal i = decimal' (<= -128) i
6358
6459boundedDecimal :: (Integral a, Bounded a) => a -> Builder
6560{-# SPECIALIZE boundedDecimal :: Int -> Builder #-}
@@ -67,11 +62,15 @@ boundedDecimal :: (Integral a, Bounded a) => a -> Builder
6762{-# SPECIALIZE boundedDecimal :: Int16 -> Builder #-}
6863{-# SPECIALIZE boundedDecimal :: Int32 -> Builder #-}
6964{-# SPECIALIZE boundedDecimal :: Int64 -> Builder #-}
70−boundedDecimal i
71− | i < 0 = singleton '-' <>
72− if i == minBound
73− then positive (-(i `quot` 10)) <> digit (-(i `rem` 10))
74− else positive (-i)
65+boundedDecimal i = decimal' (== minBound) i
66+
67+decimal' :: (Integral a) => (a -> Bool) -> a -> Builder
68+{-# INLINE decimal' #-}
69+decimal' p i
70+ | i < 0 = singleton '-' <>
71+ if p i
72+ then positive (-(i `quot` 10)) <> digit (-(i `rem` 10))
73+ else positive (-i)
7574 | otherwise = positive i
7675
7776positive :: (Integral a) => a -> Builder