Specify the correct content type even for 304 responses.

Ignore-this: 813bd2f6535f3f0ec7f8ec1ad8757bde

darcs-hash:e83444f36f9f27dcca66631e95f221d6caa7950b

1 files changed, 2 insertions, 2 deletions

diff --git a/utils.lisp b/utils.lisp
index be7af1e..e111231 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -326,7 +326,7 @@ ELEMENT-TYPE as the stream's."
                 (spamp comment)
                 (body-of comment))))
 
-(defun revalidate-cache-or-die ()
+(defun revalidate-cache-or-die (content-type)
   #+clisp
     (when *if-modified-since*
       (let* ((date-recognisers (mapcar #'cybertiggyr-time::make-fmt-recognizer '("%A, %d-%B-%y %H:%M:%S GMT" "%A, %d %B %Y %H:%M:%S GMT" "%A %B %d %H:%M:%S %Y")))
@@ -336,7 +336,7 @@ ELEMENT-TYPE as the stream's."
                    (integerp modified-time)
                    (>= requested-time modified-time))
           (http-add-header "Status" "304 Not Modified")
-          (http-send-headers)
+          (http-send-headers content-type)
           (ext:quit 0))))
   #-clisp
     nil)