diff options
Diffstat (limited to 'guix-build-coordinator/agent.scm')
| -rw-r--r-- | guix-build-coordinator/agent.scm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 96611fc..582b607 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -143,13 +143,20 @@ output-paths)) (path-substitutes (begin - (set-build-options store #:substitute-urls - non-derivation-substitute-urls) + (when non-derivation-substitute-urls + (set-build-options store #:substitute-urls + non-derivation-substitute-urls)) + + (unless non-derivation-substitute-urls + (simple-format + #t + "warning: unable to query substitute servers without caching\n")) (map (lambda (file) (and - (has-substiutes-no-cache? non-derivation-substitute-urls - file) + (and (list? non-derivation-substitute-urls) + (has-substiutes-no-cache? non-derivation-substitute-urls + file)) (if (has-substitutes? store file) #t (begin @@ -177,9 +184,10 @@ (make-exception-with-message "timeout fetching inputs")) (begin ;; Download the substitutes - (set-build-options store - #:substitute-urls - non-derivation-substitute-urls) + (when non-derivation-substitute-urls + (set-build-options store + #:substitute-urls + non-derivation-substitute-urls)) (build-things store missing-paths)))) #:times 6 |