, printStatusCode
, Response(..)
+ , emptyResponse
, resCanHaveBody
, printResponse
} deriving (Show, Eq)
instance HasHeaders Response where
- {-# INLINE getHeaders #-}
- getHeaders = resHeaders
- {-# INLINE setHeaders #-}
+ getHeaders = resHeaders
setHeaders res hdr = res { resHeaders = hdr }
+-- |Returns an HTTP\/1.1 'Response' with no header fields.
+emptyResponse ∷ StatusCode → Response
+emptyResponse sc
+ = Response {
+ resVersion = HttpVersion 1 1
+ , resStatus = sc
+ , resHeaders = (∅)
+ }
+
-- |Returns 'True' iff a given 'Response' allows the existence of
-- response entity body.
resCanHaveBody ∷ Response → Bool