From 1548439dbcfaa89b0c03b2d30e794a4374273507 Mon Sep 17 00:00:00 2001 From: Zhu Zihao Date: Fri, 27 Nov 2020 10:16:29 +0800 Subject: [PATCH] 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. --- guix/channels.scm | 14 +++++++++----- 1 file 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." -- 2.29.2