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/package.lisp  | 1 +
 src/protocol.lisp | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/src/package.lisp b/src/package.lisp
index 094295b..389609e 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -47,5 +47,6 @@
    #:class-initargs
    #:body-expected-p
    #:request-method
+   #:set-response-type
    ))
 
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