(define-record-type :http-response
  (make-response code message seconds mime extras body)
  response?
  (code response-code)
  (message response-message)
  (seconds response-seconds)
  (mime response-mime)
  (extras response-extras)
  (body response-body))

(define-record-type :http-writer-body
  (make-writer-body proc)
  writer-body?
  (proc writer-body-proc))

(define (display-http-body body port options)
  ((writer-body-proc body) port options))