From 16879a81829a563d1bf0e0529d47f665b0ed9ada Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 26 Dec 2019 09:04:46 +0000
Subject: [PATCH] Add a helper function to render text

---
 guix-data-service/web/render.scm | 11 +++++++++++
 1 file changed, 11 insertions(+)

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