X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FFormat.hs;h=8db643df3e3064389cb6330f1000134c5fc1281d;hb=0ff03469c29b791f2c609a659bbf59be97e306f2;hp=86bca83aacca170075c0676e0201bab68dac4589;hpb=8510a3765130fb171c06b448c50a74e65ac8ae11;p=Lucu.git

diff --git a/Network/HTTP/Lucu/Format.hs b/Network/HTTP/Lucu/Format.hs
index 86bca83..8db643d 100644
--- a/Network/HTTP/Lucu/Format.hs
+++ b/Network/HTTP/Lucu/Format.hs
@@ -7,12 +7,13 @@
 -- 本當にこんなものを自分で書く必要があったのだらうか。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
@@ -116,7 +117,4 @@ digitToChar n
 
 fromDigit ∷ Integral n ⇒ n → AsciiBuilder
 {-# INLINE fromDigit #-}
-fromDigit = A.toAsciiBuilder ∘
-            A.unsafeFromByteString ∘
-            BS.singleton ∘
-            digitToChar
+fromDigit = A.unsafeFromBuilder ∘ BC.fromChar ∘ digitToChar