[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#47929] [PATCH 2/5] scripts: pull: Load (gnu packages) module.
From: |
Mathieu Othacehe |
Subject: |
[bug#47929] [PATCH 2/5] scripts: pull: Load (gnu packages) module. |
Date: |
Wed, 21 Apr 2021 14:21:05 +0200 |
This allows to pass a manifest to channel-with-substitutes-available this way:
(channel-with-substitutes-available
%default-guix-channel
"https://ci.guix.gnu.org"
(specifications->manifest
'("git" "emacs-minimal")))
* guix/scripts/pull.scm (channel-list): Load the (gnu packages) module when
evaluating the user channels list.
---
guix/scripts/pull.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm
index 07613240a8..662239b492 100644
--- a/guix/scripts/pull.scm
+++ b/guix/scripts/pull.scm
@@ -707,7 +707,8 @@ transformations specified in OPTS (resulting from '--url',
'--commit', or
(string-append %sysconfdir "/guix/channels.scm"))
(define (load-channels file)
- (let ((result (load* file (make-user-module '((guix channels))))))
+ (let ((result (load* file (make-user-module '((guix channels)
+ (gnu packages))))))
(if (and (list? result) (every channel? result))
result
(leave (G_ "'~a' did not return a list of channels~%") file))))
--
2.31.1