diff options
Diffstat (limited to 'guix-build-coordinator/guix-data-service.scm')
| -rw-r--r-- | guix-build-coordinator/guix-data-service.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/guix-build-coordinator/guix-data-service.scm b/guix-build-coordinator/guix-data-service.scm index 26f9c88..5957ed2 100644 --- a/guix-build-coordinator/guix-data-service.scm +++ b/guix-build-coordinator/guix-data-service.scm @@ -42,15 +42,13 @@ (let*-values (((response body) - (with-timeout 30 ; 30 seconds - (raise-exception - (make-exception-with-message - "timeout making guix-data-service request")) - (http-post target-url - #:body body - ;; Guile doesn't treat JSON as text, so decode the - ;; body manually - #:decode-body? #f))) + (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) |