From 36d34e03fcd044a390476cd742f348db69281d65 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 27 Apr 2025 11:11:31 +0100 Subject: [PATCH] Encode unicode in JSON responses To guard against package definitions and other things including unicode or other characters. --- guix-data-service/web/render.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/guix-data-service/web/render.scm b/guix-data-service/web/render.scm index fee5daf..3e2cf79 100644 --- a/guix-data-service/web/render.scm +++ b/guix-data-service/web/render.scm @@ -169,11 +169,11 @@ (if stream? (lambda (port) (setvbuf port 'block (expt 2 16)) - (scm->json json port)) + (scm->json json port #:unicode #t)) (call-with-encoded-output-string "utf-8" (lambda (port) - (scm->json json port)))))) + (scm->json json port #:unicode #t)))))) (define* (render-text text #:key (extra-headers '()) (code 200))