Many changes...

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

diff --git a/Network/HTTP/Lucu/Response.hs b/Network/HTTP/Lucu/Response.hs
index 2791616cbd3071243b2f8db966a7eb3b93397e50..df98bf741c24481ed59cc468f47273657d72aa67 100644 (file)
--- a/Network/HTTP/Lucu/Response.hs
+++ b/Network/HTTP/Lucu/Response.hs
@@ -27,10 +27,10 @@ import Data.Ascii (Ascii)
 import qualified Data.Ascii as A
 import Data.Monoid.Unicode
 import Data.Typeable
-import Network.HTTP.Lucu.Format
 import Network.HTTP.Lucu.HandleLike
 import Network.HTTP.Lucu.Headers
 import Network.HTTP.Lucu.HttpVersion
+import Network.HTTP.Lucu.Utils
 import Prelude.Unicode
 
 -- |This is the definition of HTTP status code.
@@ -93,7 +93,7 @@ data StatusCode = Continue
 printStatusCode ∷ StatusCode → Ascii
 printStatusCode (statusCode → (# num, msg #))
     = A.fromAsciiBuilder $
-      ( fmtDec 3 num ⊕
+      ( show3 num ⊕
         A.toAsciiBuilder " " ⊕
         A.toAsciiBuilder msg
       )
@@ -118,7 +118,7 @@ hPutResponse h (Response {..})
 
 hPutStatus ∷ HandleLike h ⇒ h → StatusCode → IO ()
 hPutStatus h (statusCode → (# num, msg #))
-    = do hPutBS   h (A.toByteString $ A.fromAsciiBuilder $ fmtDec 3 num)
+    = do hPutBS   h (A.toByteString $ A.fromAsciiBuilder $ show3 num)
          hPutChar h ' '
          hPutBS   h (A.toByteString msg)