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.
printStatusCode ∷ StatusCode → Ascii
printStatusCode (statusCode → (# num, msg #))
= A.fromAsciiBuilder $
- ( fmtDec 3 num ⊕
+ ( show3 num ⊕
A.toAsciiBuilder " " ⊕
A.toAsciiBuilder msg
)
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)