diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-10 08:21:14 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-10 08:21:14 +0000 |
| commit | 88fbb69264a412ca2c7e6c4de024414444bd2df8 (patch) | |
| tree | 20a664b8d325da6904df82cd9eab2b7e89fe57f8 | |
| parent | 03a5b007f1d7b8e4b1dd03e8766330d006a11ae8 (diff) | |
| download | build-coordinator-88fbb69264a412ca2c7e6c4de024414444bd2df8.tar build-coordinator-88fbb69264a412ca2c7e6c4de024414444bd2df8.tar.gz | |
Tweak trying to safely load the (guix narinfo) module
I think the eval-when thing might help given narinfo-references is a syntax
thing, rather than a normal procedure.
| -rw-r--r-- | guix-build-coordinator/utils.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 67c83e8..20cf007 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -56,9 +56,11 @@ get-load-average)) -(when (defined? 'narinfo-references (resolve-module '(guix narinfo))) - ;; This module contains narinfo-references in newer version of Guix - (use-modules (guix narinfo))) +(eval-when (eval load compile) + (begin + (when (defined? 'narinfo-references (resolve-module '(guix narinfo))) + ;; This module contains narinfo-references in newer version of Guix + (use-modules (guix narinfo))))) (define (random-v4-uuid) ;; https://tools.ietf.org/html/rfc4122#page-14 |