From 131967dc39f09a1597cc0fa5df14c4fe45e81f94 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 6 Feb 2025 17:15:33 +0000
Subject: [PATCH] Tweak streaming json

Don't set the encoding, this should be handled by knots, and drop the block
size as the previous value seemed excessive.
---
 guix-data-service/web/render.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm
index 90f577e..fee5daf 100644
--- a/guix-data-service/web/render.scm
+++ b/guix-data-service/web/render.scm
@@ -168,8 +168,7 @@
                              (vary . (accept)))))
         (if stream?
             (lambda (port)
-              (set-port-encoding! port "utf-8")
-              (setvbuf port 'block (expt 2 20))
+              (setvbuf port 'block (expt 2 16))
               (scm->json json port))
             (call-with-encoded-output-string
              "utf-8"