diff options
| author | Zhu Zihao <all_but_last@163.com> | 2020-11-27 10:16:29 +0800 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-11-28 00:06:14 +0100 |
| commit | 16c7472b332fdf45a487f7aa076cbfc6fec8dc6d (patch) | |
| tree | 8038f825885033d7926511c8c35f2da2eb212638 | |
| parent | 8ea2d7c2fa4d4ad7b4cf522fa259561beeeda072 (diff) | |
| download | guix-16c7472b332fdf45a487f7aa076cbfc6fec8dc6d.tar.gz | |
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>
| -rw-r--r-- | guix/channels.scm | 14 |
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." |