aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-02-23 20:08:43 +0000
committerChristopher Baines <mail@cbaines.net>2021-02-23 20:10:44 +0000
commitf9a257ed61531eafc9727faebe50be1a1cb1648a (patch)
tree4849226beedc4134a316b71bbff795051dac74df /guix-build-coordinator
parent9c1e42046fbd8ac6a1414ed1eee71707ee340377 (diff)
downloadbuild-coordinator-f9a257ed61531eafc9727faebe50be1a1cb1648a.tar
build-coordinator-f9a257ed61531eafc9727faebe50be1a1cb1648a.tar.gz
Prepare for the addition of a (guix substitutes) module
If and when this happens, some proceduces will be moved. This change might avoid things breaking. https://issues.guix.gnu.org/45409
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/utils.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm
index e29be18..0a5af15 100644
--- a/guix-build-coordinator/utils.scm
+++ b/guix-build-coordinator/utils.scm
@@ -62,7 +62,11 @@
(begin
(when (defined? 'narinfo-references (resolve-module '(guix narinfo)))
;; This module contains narinfo-references in newer version of Guix
- (use-modules (guix narinfo)))))
+ (use-modules (guix narinfo)))
+
+ (when (defined? 'lookup-narinfos (resolve-module '(guix substitutes)))
+ ;; This module may contain lookup-narinfos in newer version of Guix
+ (use-modules (guix substitutes)))))
(define (random-v4-uuid)
;; https://tools.ietf.org/html/rfc4122#page-14