diff options
author | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:27:28 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 10:27:28 +0100 |
commit | a2f09295bc4944c788bac01b9f2adafa8bf866c7 (patch) | |
tree | 1689abc3082f2e79bf037374e017bbaf37b8d1a0 | |
parent | 54008b34f7dfa1a1d15c6505fa996263a39f2285 (diff) | |
download | build-coordinator-a2f09295bc4944c788bac01b9f2adafa8bf866c7.tar build-coordinator-a2f09295bc4944c788bac01b9f2adafa8bf866c7.tar.gz |
Add a timeout when fetching build inputs
As this seems like it can hang.
-rw-r--r-- | guix-build-coordinator/agent.scm | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 84be0ca..06518ed 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -153,13 +153,17 @@ (begin (retry-on-error (lambda () - ;; Download the substitutes - (with-store store - (set-build-options store - #:substitute-urls - non-derivation-substitute-urls) + (with-timeout (* 1000 60 10) ; 10 minutes + (raise-exception + (make-exception-with-message "timeout fetching inputs")) + (begin + ;; Download the substitutes + (with-store store + (set-build-options store + #:substitute-urls + non-derivation-substitute-urls) - (build-things store missing-paths))) + (build-things store missing-paths))))) #:times 6 #:delay 60) |