diff options
author | Christopher Baines <mail@cbaines.net> | 2019-05-19 22:30:50 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-05-19 22:30:50 +0100 |
commit | cc0ecdc055082a0adbefe3d7e0d2e5a05416e890 (patch) | |
tree | 70db7538d12a13e4d786cab691b0077dba3159bf /guix-data-service/web/render.scm | |
parent | 2c3533107528c9f58813f7f5c171e909ab7d2223 (diff) | |
download | data-service-cc0ecdc055082a0adbefe3d7e0d2e5a05416e890.tar data-service-cc0ecdc055082a0adbefe3d7e0d2e5a05416e890.tar.gz |
Add #:code to render-json
Diffstat (limited to 'guix-data-service/web/render.scm')
-rw-r--r-- | guix-data-service/web/render.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index 5121782..2318a19 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -100,9 +100,12 @@ (lambda (port) (sxml->html sxml port)))) -(define* (render-json json #:key (extra-headers '())) - (list (append extra-headers - '((content-type . (application/json)))) +(define* (render-json json #:key (extra-headers '()) + (code 200)) + (list (build-response + #:code code + #:headers (append extra-headers + '((content-type . (application/json))))) (lambda (port) (scm->json json port)))) |