, fmtHex
)
where
+import qualified Blaze.ByteString.Builder.Char8 as BC
import Data.Ascii (AsciiBuilder)
import qualified Data.ByteString.Char8 as BS
import qualified Data.Ascii as A
fromDigit ∷ Integral n ⇒ n → AsciiBuilder
{-# INLINE fromDigit #-}
-fromDigit = A.toAsciiBuilder ∘
- A.unsafeFromByteString ∘
- BS.singleton ∘
- digitToChar
+fromDigit = A.unsafeFromBuilder ∘ BC.fromChar ∘ digitToChar