diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-12-13 12:37:24 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-12-13 12:37:24 +0000 |
| commit | e4af682452580298b34681d37818a16771a17c66 (patch) | |
| tree | 0ffea0888312d105e9b32994af69fdfcb12a61f8 /guix-build-coordinator | |
| parent | 7df64ca45a06f7e4ca3e43419635ef8ad0d305a5 (diff) | |
| download | build-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.scm | 12 |
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)) |