diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index 94cbf55..248de3c 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -97,8 +97,9 @@ (lambda (port) (sxml->html sxml port)))) -(define (render-json json) - (list '((content-type . (application/json))) +(define* (render-json json #:key (extra-headers '())) + (list (append extra-headers + '((content-type . (application/json)))) (lambda (port) (scm->json json port))))