diff options
-rw-r--r-- | lazybones.lisp | 5 | ||||
-rw-r--r-- | package.lisp | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index b95b73b..855f2d1 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -148,6 +148,11 @@ where #HANDERL123 is a block label unique to the handler. *resp-headers*) content)) +(defun http-redirect (location) + (list 303 (list* :location location + *resp-headers*) + nil)) + (defun serve-directory (root-path root-dir &key headers cache-p (filter #'identity)) "Adds handlers for every file in the directory tree with the root ROOT-DIR. diff --git a/package.lisp b/package.lisp index 58f221e..3cefcea 100644 --- a/package.lisp +++ b/package.lisp @@ -25,6 +25,7 @@ #:defroute #:http-err #:http-ok + #:http-redirect #:reload #:start #:stop |