From 70126f7ed0babca5af1ba98296979a4aeaeac991 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 5 Aug 2019 19:43:50 +0100 Subject: Set the Vary header to a sensible default value As most pages vary based on the Accept header. --- guix-data-service/web/render.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index 5b0ff7a..7047174 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -87,7 +87,8 @@ (list (build-response #:code code #:headers (append extra-headers - '((content-type . (text/html))))) + '((content-type . (text/html)) + (vary . (accept))))) (lambda (port) (sxml->html sxml port)))) @@ -96,7 +97,8 @@ (list (build-response #:code code #:headers (append extra-headers - '((content-type . (application/json))))) + '((content-type . (application/json)) + (vary . (accept))))) (lambda (port) (scm->json json port)))) -- cgit v1.2.3