mkSyntacticallyInvalidInteraction ∷ Config
→ IO SyntacticallyInvalidInteraction
-mkSyntacticallyInvalidInteraction config@(Config {..})
+mkSyntacticallyInvalidInteraction conf@(Config {..})
= do date ← getCurrentDate
let res = setHeader "Server" cnfServerSoftware $
setHeader "Date" date $
setHeader "Content-Type" defaultPageContentType $
emptyResponse BadRequest
- body = getDefaultPage config Nothing res
+ body = defaultPageForResponse conf Nothing res
return SYI {
syiResponse = res
, syiBodyToSend = body
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
+ body = defaultPageForResponse config (Just arRequest) res
return SEI {
seiRequest = arRequest
, seiExpectedContinue = arExpectedContinue