aboutsummaryrefslogtreecommitdiff
path: root/guix-qa-frontpage
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-05-17 09:22:59 +0100
committerChristopher Baines <mail@cbaines.net>2024-05-17 14:39:38 +0100
commit4d3884a59f55e3eeab44067801b9bf46b67e2609 (patch)
treef2b7b49309f3ca34b99ba1bd3b2b53613b3ea3b9 /guix-qa-frontpage
parent7fb8df2b87c8e7668b450c17cc3bfbc1bfefab16 (diff)
downloadqa-frontpage-master.tar
qa-frontpage-master.tar.gz
Use non-blocking when using zlibHEADmaster
Diffstat (limited to 'guix-qa-frontpage')
-rw-r--r--guix-qa-frontpage/guix-data-service.scm4
1 files changed, 2 insertions, 2 deletions
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