diff options
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)))) |