diff options
| -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 |