diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-17 09:22:59 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-17 14:39:38 +0100 |
| commit | 4d3884a59f55e3eeab44067801b9bf46b67e2609 (patch) | |
| tree | f2b7b49309f3ca34b99ba1bd3b2b53613b3ea3b9 /guix-qa-frontpage | |
| parent | 7fb8df2b87c8e7668b450c17cc3bfbc1bfefab16 (diff) | |
| download | qa-frontpage-4d3884a59f55e3eeab44067801b9bf46b67e2609.tar qa-frontpage-4d3884a59f55e3eeab44067801b9bf46b67e2609.tar.gz | |
Use non-blocking when using zlib
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 4 |
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 |