aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-12-13 12:37:24 +0000
committerChristopher Baines <mail@cbaines.net>2023-12-13 12:37:24 +0000
commite4af682452580298b34681d37818a16771a17c66 (patch)
tree0ffea0888312d105e9b32994af69fdfcb12a61f8 /guix-build-coordinator
parent7df64ca45a06f7e4ca3e43419635ef8ad0d305a5 (diff)
downloadbuild-coordinator-e4af682452580298b34681d37818a16771a17c66.tar
build-coordinator-e4af682452580298b34681d37818a16771a17c66.tar.gz
Add some port timeouts in to the build-success-publish-hook
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/hooks.scm12
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm
index a98f318..bf4b576 100644
--- a/guix-build-coordinator/hooks.scm
+++ b/guix-build-coordinator/hooks.scm
@@ -132,13 +132,15 @@
(if (null? potential-referenced-source-files)
'()
- (with-store store
+ (with-store/non-blocking store
(unless (valid-path? store drv-name)
;; TODO This isn't ideal as it can be blocked by GC
- (substitute-derivation store
- drv-name
- #:substitute-urls
- derivation-substitute-urls)
+ (with-port-timeouts
+ (lambda ()
+ (substitute-derivation store
+ drv-name
+ #:substitute-urls
+ derivation-substitute-urls)))
(add-temp-root store drv-name))
(let* ((drv (read-derivation-from-file* drv-name))