lfe_http

(defmodule http.response
  (export
   (add-header 3)
   (new 0) (new 1) (new 2) (new 3)))

(defun new ()
  (new #""))

(defun new (body)
  (new (http.status:ok) body))

(defun new (status body)
  (new status (http:default-headers) body))

(defun new (status headers body)
  `#m(status ,status
      headers ,headers
      body ,body))

(defun add-header (resp k v)
  (http.util:add-header resp k v))