import Network.HTTP.Lucu.HandleLike
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.HttpVersion
import Network.HTTP.Lucu.HandleLike
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.HttpVersion
printStatusCode ∷ StatusCode → Ascii
printStatusCode (statusCode → (# num, msg #))
= A.fromAsciiBuilder $
printStatusCode ∷ StatusCode → Ascii
printStatusCode (statusCode → (# num, msg #))
= A.fromAsciiBuilder $
hPutStatus ∷ HandleLike h ⇒ h → StatusCode → IO ()
hPutStatus h (statusCode → (# num, msg #))
hPutStatus ∷ HandleLike h ⇒ h → StatusCode → IO ()
hPutStatus h (statusCode → (# num, msg #))