From 6bdb116a0fbbbcd152b4f738cbdb52ef313dcf2e Mon Sep 17 00:00:00 2001
From: Matthias Benkard <code@mail.matthias.benkard.de>
Date: Wed, 7 Oct 2009 15:16:05 +0200
Subject: Specify the correct content type even for 304 responses.

Ignore-this: 813bd2f6535f3f0ec7f8ec1ad8757bde

darcs-hash:e83444f36f9f27dcca66631e95f221d6caa7950b
---
 utils.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'utils.lisp')

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