diff options
Diffstat (limited to 'src/protocol.lisp')
| -rw-r--r-- | src/protocol.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |