diff options
author | Christopher Baines <mail@cbaines.net> | 2019-12-26 09:04:46 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-12-26 09:04:46 +0000 |
commit | 16879a81829a563d1bf0e0529d47f665b0ed9ada (patch) | |
tree | bcc748a0b987511be46358947f06b94c9ff53fca /guix-data-service | |
parent | a92d4d0cf260b912963cef44579d81c1d548a498 (diff) | |
download | data-service-16879a81829a563d1bf0e0529d47f665b0ed9ada.tar data-service-16879a81829a563d1bf0e0529d47f665b0ed9ada.tar.gz |
Add a helper function to render text
Diffstat (limited to 'guix-data-service')
-rw-r--r-- | guix-data-service/web/render.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index 880035e..081399a 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -36,6 +36,7 @@ render-static-asset render-html render-json + render-text not-found unprocessable-entity created @@ -156,6 +157,16 @@ (lambda (port) (scm->json json port)))) +(define* (render-text text #:key (extra-headers '()) + (code 200)) + (list (build-response + #:code code + #:headers (append extra-headers + '((content-type . (text/plain)) + (vary . (accept))))) + (lambda (port) + (display text port)))) + (define (not-found uri) (list (build-response #:code 404) (string-append "Resource not found: " (uri->string uri)))) |