diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-08 22:38:09 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-08 22:38:09 +0100 |
| commit | ad0a5efea4ac70ca02f68ddbaa82740b074dc0f4 (patch) | |
| tree | 9083f54aab91779ff500c2939a37e925132222d7 /guix-qa-frontpage/guix-data-service.scm | |
| parent | d75f8e9bec6a84bcea80a6fca1ec5847acb5e912 (diff) | |
| download | qa-frontpage-ad0a5efea4ac70ca02f68ddbaa82740b074dc0f4.tar qa-frontpage-ad0a5efea4ac70ca02f68ddbaa82740b074dc0f4.tar.gz | |
Add a non dynamic-wind version of call-with-zlib-input-port*
Diffstat (limited to 'guix-qa-frontpage/guix-data-service.scm')
| -rw-r--r-- | guix-qa-frontpage/guix-data-service.scm | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/guix-qa-frontpage/guix-data-service.scm b/guix-qa-frontpage/guix-data-service.scm index 7ba98bc..af9fb0b 100644 --- a/guix-qa-frontpage/guix-data-service.scm +++ b/guix-qa-frontpage/guix-data-service.scm @@ -109,13 +109,10 @@ (let ((json-body (match (response-content-encoding response) (('gzip) - ;; Prevent fibers issues with zlib - (non-blocking - (lambda () - (call-with-zlib-input-port - body - json->scm - #:format 'gzip)))) + (call-with-zlib-input-port* + body + json->scm + #:format 'gzip)) (_ (json->scm body))))) (if (or (> (response-code response) |