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

Add #:code option to render-html

Browse source
This commit is contained in:
Christopher Baines 2019-05-19 22:23:22 +01:00
parent e92e095ee9
commit 2c35331075
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -91,9 +91,12 @@
failure)) failure))
failure))) failure)))
(define* (render-html #:key sxml (extra-headers '())) (define* (render-html #:key sxml (extra-headers '())
(list (append extra-headers (code 200))
'((content-type . (text/html)))) (list (build-response
#:code code
#:headers (append extra-headers
'((content-type . (text/html)))))
(lambda (port) (lambda (port)
(sxml->html sxml port)))) (sxml->html sxml port))))