Render JSON directly to client port.

* guix-web (render-json): Output to port instead of string.

1 files changed, 2 insertions, 2 deletions

diff --git a/guix-web b/guix-web
index 0b322e9..81595c1 100755
--- a/guix-web
+++ b/guix-web
@@ -70,8 +70,8 @@
 
 (define (render-json json)
   (list '((content-type . (application/json)))
-        (with-output-to-string
-          (cut scm->json json))))
+        (lambda (port)
+          (scm->json json port))))
 
 (define (request-path-components request)
   (split-and-decode-uri-path (uri-path (request-uri request))))