- | isInformational resStatus = False
- | resStatus ≈ NoContent = False
- | resStatus ≈ ResetContent = False
- | resStatus ≈ NotModified = False
- | otherwise = True
-
--- |Convert a 'Response' to 'AsciiBuilder'.
-printResponse ∷ Response → AsciiBuilder
-{-# INLINEABLE printResponse #-}
-printResponse (Response {..})
- = printHttpVersion resVersion ⊕
- A.toAsciiBuilder " " ⊕
- printStatusCode resStatus ⊕
- A.toAsciiBuilder "\x0D\x0A" ⊕
- printHeaders resHeaders
-
--- |@'isInformational' sc@ returns 'True' iff @sc < 200@.
+ | isInformational resStatus = False
+ | resStatus ≡ cs NoContent = False
+ | resStatus ≡ cs ResetContent = False
+ | resStatus ≡ cs NotModified = False
+ | otherwise = True
+
+-- |@'isInformational' sc@ returns 'True' iff @sc '<' 200@.