From 8f2e3b741c41dfc088645a89e0cade14d2835630 Mon Sep 17 00:00:00 2001
From: Andy Wingo
Date: Mon, 6 Dec 2010 13:04:24 +0100
Subject: more etag

* tekuti/page.scm (page-feed-atom): Also set etag on 304 responses
  here.
---
 tekuti/page.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/tekuti/page.scm b/tekuti/page.scm
index ac7af87..62ba56f 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -304,7 +304,9 @@
     (cond
      ((let ((since (request-if-modified-since request)))
         (and since (>= (date->timestamp since) last-modified)))
-      (respond #f #:status 304))
+      (respond #f #:status 304
+               #:last-modified (timestamp->date last-modified)
+               #:etag (assq-ref index 'master)))
      (else
       (respond #f
                #:last-modified (and=> last-modified timestamp->date)
-- 
cgit v1.2.3-54-g00ecf