summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorZhu Zihao <all_but_last@163.com>2020-11-27 10:16:29 +0800
committerLudovic Courtès <ludo@gnu.org>2020-11-28 00:06:14 +0100
commit16c7472b332fdf45a487f7aa076cbfc6fec8dc6d (patch)
tree8038f825885033d7926511c8c35f2da2eb212638 /guix
parent8ea2d7c2fa4d4ad7b4cf522fa259561beeeda072 (diff)
channels: Expose the default channel in %default-channel.
* guix/channels(%default-guix-channel): New variable taken from the inner of %default-channels. (%default-channels): Refactored. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'guix')
-rw-r--r--guix/channels.scm14
1 files changed, 9 insertions, 5 deletions
diff --git a/guix/channels.scm b/guix/channels.scm
index 916d663e9f..0c84eed477 100644
--- a/guix/channels.scm
+++ b/guix/channels.scm
@@ -72,6 +72,7 @@
openpgp-fingerprint->bytevector
openpgp-fingerprint
+ %default-guix-channel
%default-channels
guix-channel?
@@ -170,13 +171,16 @@ to the corresponding bytevector."
;; URL of the default 'guix' channel.
"https://git.savannah.gnu.org/git/guix.git")
+(define %default-guix-channel
+ (channel
+ (name 'guix)
+ (branch "master")
+ (url %default-channel-url)
+ (introduction %guix-channel-introduction)))
+
(define %default-channels
;; Default list of channels.
- (list (channel
- (name 'guix)
- (branch "master")
- (url %default-channel-url)
- (introduction %guix-channel-introduction))))
+ (list %default-guix-channel))
(define (guix-channel? channel)
"Return true if CHANNEL is the 'guix' channel."