diff options
| author | colin <colin@cicadas.surf> | 2023-09-17 11:24:56 -0700 |
|---|---|---|
| committer | colin <colin@cicadas.surf> | 2023-09-17 11:24:56 -0700 |
| commit | 3a9aac9a7a1c59f6bdce5a26ea2d17bdf65921c9 (patch) | |
| tree | f658a7c2b17a747bc14214c0d593225cdb741d91 /lazybones.lisp | |
| parent | 10dfda16361f1feaaee64596abd3b3dcea25ebfa (diff) | |
Fixed response header setting to make redirection work
Diffstat (limited to 'lazybones.lisp')
| -rw-r--r-- | lazybones.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lazybones.lisp b/lazybones.lisp index 9eb719a..0fe323b 100644 --- a/lazybones.lisp +++ b/lazybones.lisp @@ -339,6 +339,7 @@ applying HANDLER-FUNCTION slot of ENDPOINT to the ARGS list." (let ((*request* request) (*response* response) (*app* app)) + (setf (response-code) 200) (if (request-authorized-p endpoint) (http-respond (apply (endpoint-request-handler endpoint) args)) (http-err 403)))) |