guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Enable passing extra headers for JSON responses 

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
Show Stats 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)
(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))))