Packages

lmug

0.2.2
0.2.8 0.2.7 0.2.6 0.2.5 0.2.4 0.2.3 0.2.2 0.2.1 0.2.0 0.1.2 0.1.1 0.1.0 0.0.902 0.0.901 0.0.900

LFE HTTP Server Abstraction and Web Application Middleware Infrastructure

Current section

Files

Jump to
Readme
15 Versions
3 Dependencies
Dependants
Files
Activity
lmug src lmug-mw-status-body.lfe
Raw

src/lmug-mw-status-body.lfe 

(defmodule lmug-mw-status-body

  (doc "Set the body as to the value of the status code.")

  (behaviour lmug-middleware)

  (export

   (wrap 1) (wrap 2)))



(defun wrap (handler)

  "The same as #'wrap/2 but with an empty map for options."

  (wrap handler #m()))



(defun wrap (handler _opts)

  "Middleware that sets the body to be the same as the status code."

  (lambda (req)

    (let ((resp (funcall handler req)))

      (http.response:set-body resp (mref resp 'status)))))