diff options
| author |  Andy Wingo | 2010-12-06 13:04:24 +0100 |
|---|---|---|
| committer | Andy Wingo | 2010-12-06 13:04:24 +0100 |
| commit | 8f2e3b741c41dfc088645a89e0cade14d2835630 (patch) | |
| tree | 6dca3b61ddb7c7d12fe19f77f88bdc77586611e8 | |
| parent | 839d2e27eb11a39dd3945052ba680c9c6d998296 (diff) | |
| download | tekuti-8f2e3b741c41dfc088645a89e0cade14d2835630.tar.gz tekuti-8f2e3b741c41dfc088645a89e0cade14d2835630.zip | |
more etag
* tekuti/page.scm (page-feed-atom): Also set etag on 304 responses
here.
| -rw-r--r-- | tekuti/page.scm | 4 |
1 files changed, 3 insertions, 1 deletions
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) |