diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-22 09:38:18 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-22 09:38:18 +0100 |
| commit | d466a7423b719a9da39ca46f7c8c27d76b6c7e8c (patch) | |
| tree | 42291cccf3c197605a5b603ef457045c2e53eebc | |
| parent | 06be815b0c65e0b99a0b98ba4c2fa3909d7ecc80 (diff) | |
| download | build-coordinator-d466a7423b719a9da39ca46f7c8c27d76b6c7e8c.tar build-coordinator-d466a7423b719a9da39ca46f7c8c27d76b6c7e8c.tar.gz | |
Use srfi-71 in the guix-data-service module
| -rw-r--r-- | guix-build-coordinator/guix-data-service.scm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/guix-build-coordinator/guix-data-service.scm b/guix-build-coordinator/guix-data-service.scm index 5957ed2..20dc8c4 100644 --- a/guix-build-coordinator/guix-data-service.scm +++ b/guix-build-coordinator/guix-data-service.scm @@ -20,6 +20,7 @@ (define-module (guix-build-coordinator guix-data-service) #:use-module (srfi srfi-11) + #:use-module (srfi srfi-71) #:use-module (ice-9 exceptions) #:use-module (rnrs bytevectors) #:use-module (json) @@ -40,17 +41,17 @@ (scm->json-string `((items . ,(list->vector events))))) - (let*-values - (((response body) - (with-port-timeouts - (lambda () - (http-post target-url - #:body body - ;; Guile doesn't treat JSON as text, so decode the - ;; body manually - #:decode-body? #f)))) - ((code) - (response-code response))) + (let* ((response + body + (with-port-timeouts + (lambda () + (http-post target-url + #:body body + ;; Guile doesn't treat JSON as text, so decode the + ;; body manually + #:decode-body? #f)))) + (code + (response-code response))) (unless (and (>= code 200) (< code 300)) (raise-exception |