aliens/tekuti
1
0
Fork 0
Code Activity

more etag

Browse source 
* tekuti/page.scm (page-feed-atom): Also set etag on 304 responses
  here.
This commit is contained in:
Andy Wingo 2010-12-06 13:04:24 +01:00
parent 839d2e27eb
commit 8f2e3b741c
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
tekuti/page.scm
View file

@ -304,7 +304,9 @@
(cond (cond
((let ((since (request-if-modified-since request))) ((let ((since (request-if-modified-since request)))
(and since (>= (date->timestamp since) last-modified))) (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 (else
(respond #f (respond #f
#:last-modified (and=> last-modified timestamp->date) #:last-modified (and=> last-modified timestamp->date)