From 1872584975829a68ab95d6b4adf1aabbd896ebc2 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Fri, 6 Sep 2024 21:47:24 -0700
Subject: Add set-response-type function

---
 src/protocol.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/protocol.lisp')

diff --git a/src/protocol.lisp b/src/protocol.lisp
index 6951077..3bbe983 100644
--- a/src/protocol.lisp
+++ b/src/protocol.lisp
@@ -213,3 +213,7 @@ string or keyword."
 (defun err (&key (code 400) (content "Bad Request") (mimetype "text/plain")) 
   "Signal an error and abort request."
   (error 'request-error :code code :content content :mimetype mimetype))
+
+(defun set-response-type (mimetype)
+  "Set the Content-Type header of the response."
+  (setf (http:content-type*) mimetype))
-- 
cgit v1.2.3