let res = setHeader "Server" cnfServerSoftware $
setHeader "Date" date $
setHeader "Content-Type" defaultPageContentType $
+ ( if arWillChunkBody
+ then setHeader "Transfer-Encoding" "chunked"
+ else id
+ ) $
+ ( if arWillClose
+ then setHeader "Connection" "close"
+ else id
+ ) $
emptyResponse arInitialStatus
body = getDefaultPage config (Just arRequest) res
return SEI {
, niRemoteCert ∷ !(Maybe X509)
#endif
, niRequest ∷ !Request
- , niResourcePath ∷ !PathSegments
+ , niResourcePath ∷ !Path
, niExpectedContinue ∷ !Bool
, niReqBodyLength ∷ !(Maybe RequestBodyLength)
→ Maybe X509
#endif
→ AugmentedRequest
- → PathSegments
+ → Path
→ IO NormalInteraction
#if defined(HAVE_SSL)
mkNormalInteraction config remoteAddr remoteCert (AugmentedRequest {..}) rsrcPath