From ba006b2cd3ea52a39f422c6259e04ec63e9d08e4 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 29 Mar 2023 09:30:53 +0100 Subject: Switch the timeout approach for guix-data-service requests In case this helps with avoiding hooks hanging. --- guix-build-coordinator/guix-data-service.scm | 16 +++++++--------- 1 file 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) -- cgit v1.2.3