From 3a9aac9a7a1c59f6bdce5a26ea2d17bdf65921c9 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Sun, 17 Sep 2023 11:24:56 -0700
Subject: Fixed response header setting to make redirection work

---
 lazybones.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'lazybones.lisp')

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))))
-- 
cgit v1.2.3