where
import Data.Ascii (AsciiBuilder)
import qualified Data.Ascii as A
+import Data.Convertible.Base
+import Data.Convertible.Instances.Ascii ()
+import Data.Convertible.Utils
import Data.Monoid.Unicode
import Network.HTTP.Lucu.Headers
import Network.HTTP.Lucu.HttpVersion
printResponse ∷ Response → AsciiBuilder
{-# INLINEABLE printResponse #-}
printResponse (Response {..})
- = printHttpVersion resVersion ⊕
+ = cs resVersion ⊕
A.toAsciiBuilder " " ⊕
printStatusCode resStatus ⊕
A.toAsciiBuilder "\x0D\x0A" ⊕
- printHeaders resHeaders
+ cs resHeaders
-- |@'isInformational' sc@ returns 'True' iff @sc '<' 200@.
isInformational ∷ StatusCode sc ⇒ sc → Bool