= do date ← getCurrentDate
let res = setHeader "Server" cnfServerSoftware $
setHeader "Date" date $
setHeader "Content-Type" defaultPageContentType $
emptyResponse BadRequest
= do date ← getCurrentDate
let res = setHeader "Server" cnfServerSoftware $
setHeader "Date" date $
setHeader "Content-Type" defaultPageContentType $
emptyResponse BadRequest