diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-10-24 17:35:53 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-10-24 17:35:53 +0100 |
| commit | ae93ce8cbc44f3638c1a44c12deddfa0957c8e96 (patch) | |
| tree | d5f564d22bc5d6aa7def588085a29b3b152ed06a | |
| parent | 0d9228e549082eabc9311dd4202bd286bc4363e4 (diff) | |
| download | build-coordinator-ae93ce8cbc44f3638c1a44c12deddfa0957c8e96.tar build-coordinator-ae93ce8cbc44f3638c1a44c12deddfa0957c8e96.tar.gz | |
WIP
| -rw-r--r-- | guix-build-coordinator/utils.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 7b38130..b962b1d 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -299,10 +299,12 @@ upcoming chunk." substitute-urls))) (if narinfo (append-map - (lambda (referenced-output) - (peek "REF" referenced-output) - (find-missing-substitutes-for-output substitute-urls - referenced-output)) + (lambda (reference) + (let ((referenced-output + (string-append (%store-prefix) "/" reference))) + (peek "REF" referenced-output) + (find-missing-substitutes-for-output substitute-urls + referenced-output))) (narinfo-references narinfo)) (list output)))) |