From 4d3884a59f55e3eeab44067801b9bf46b67e2609 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 17 May 2024 09:22:59 +0100 Subject: Use non-blocking when using zlib --- guix-qa-frontpage/guix-data-service.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-qa-frontpage') diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 9bf7997..6518cd1 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -143,8 +143,8 @@ (let ((json-body (match (response-content-encoding response) (('gzip) - ;; Stop fibers from triggering dynamic-wind in (zlib) - (call-with-blocked-asyncs + ;; Prevent fibers issues with zlib + (non-blocking (lambda () (call-with-zlib-input-port body -- cgit v1.2.3