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

Enable passing extra headers for JSON responses

Browse source 
Mostly to enable passing the cache-control header.
This commit is contained in:
Christopher Baines 2019-05-18 20:25:05 +01:00
parent 03faff5da0
commit 0ca5748c0f
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -97,8 +97,9 @@
(lambda (port) (lambda (port)
(sxml->html sxml port)))) (sxml->html sxml port))))
(define (render-json json) (define* (render-json json #:key (extra-headers '()))
(list '((content-type . (application/json))) (list (append extra-headers
'((content-type . (application/json))))
(lambda (port) (lambda (port)
(scm->json json port)))) (scm->json json port))))