cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set the Vary header to a sensible default value

Browse source 
As most pages vary based on the Accept header.
This commit is contained in:
Christopher Baines 2019-08-05 19:43:50 +01:00
parent 8f7398b814
commit 70126f7ed0
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/web/render.scm
View file

@ -87,7 +87,8 @@
(list (build-response (list (build-response
#:code code #:code code
#:headers (append extra-headers #:headers (append extra-headers
'((content-type . (text/html))))) '((content-type . (text/html))
(vary . (accept)))))
(lambda (port) (lambda (port)
(sxml->html sxml port)))) (sxml->html sxml port))))
@ -96,7 +97,8 @@
(list (build-response (list (build-response
#:code code #:code code
#:headers (append extra-headers #:headers (append extra-headers
'((content-type . (application/json))))) '((content-type . (application/json))
(vary . (accept)))))
(lambda (port) (lambda (port)
(scm->json json port)))) (scm->json json port))))