-- 本當にこんなものを自分で書く必要があったのだらうか。Printf は重いの
-- で駄目だが、それ以外のモジュールを探しても見付からなかった。
module Network.HTTP.Lucu.Format
- ( fmtInt
+ ( {-fmtInt
, fmtDec
- , fmtHex
+ , 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