diff options
author | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:18:25 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-11-20 11:18:25 +0000 |
commit | c20fe92d48f86b2b9b98f11ca66f6904d6125092 (patch) | |
tree | c14a1fda8a7ddc05aba045e0032a857c53b2277b | |
parent | 6083ea287a27c10151bdb113df2108c716f25930 (diff) | |
download | build-coordinator-c20fe92d48f86b2b9b98f11ca66f6904d6125092.tar build-coordinator-c20fe92d48f86b2b9b98f11ca66f6904d6125092.tar.gz |
Don't shadow store in the agent
-rw-r--r-- | guix-build-coordinator/agent.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/agent.scm b/guix-build-coordinator/agent.scm index 200a343..e7af677 100644 --- a/guix-build-coordinator/agent.scm +++ b/guix-build-coordinator/agent.scm @@ -690,9 +690,9 @@ output-paths)) (path-substitutes (begin - (with-store store + (with-store substitute-store (apply set-build-options - store + substitute-store `(,@(if non-derivation-substitute-urls (list #:substitute-urls non-derivation-substitute-urls) @@ -728,7 +728,7 @@ unable to query substitute servers without caching")) (let ((log-port (open-output-string))) ;; TODO Do something with the logged output (parameterize ((current-build-output-port log-port)) - (if (has-substitutes? store file) + (if (has-substitutes? substitute-store file) #t (begin (log-msg |