Current section
Files
Jump to
Current section
Files
src/elli_xpblfe.lfe
(defmodule elli_xpblfe
"Add `X-Powered-By: LFE` header to all responses."
(export (postprocess 3)))
(defun postprocess
"```http
HTTP/1.1 451 Unavailable For Legal Reasons
X-Powered-By: LFE
```"
([req `#(,code ,body) config]
(when (orelse (is_integer code) (=:= 'ok code)))
(postprocess req `#(,code [] ,body) config))
([_req `#(,code ,headers ,body) _config]
(when (orelse (is_integer code) (=:= 'ok code)))
`#(,code [#(#"X-Powered-By" #"LFE") . ,headers] ,body)))