Working on Postprocess...

[Lucu.git] / Network / HTTP / Lucu / Format.hs

diff --git a/Network/HTTP/Lucu/Format.hs b/Network/HTTP/Lucu/Format.hs
index 86bca83aacca170075c0676e0201bab68dac4589..42508b92e849b2f720cffbac7e02acc4ef9293b1 100644 (file)
--- a/Network/HTTP/Lucu/Format.hs
+++ b/Network/HTTP/Lucu/Format.hs
@@ -13,6 +13,7 @@ module Network.HTTP.Lucu.Format
     , 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