me/guix
Archived
1
0
Fork 0
Code Activity

channels: Expose the default channel in %default-channel.

Browse source 
* 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>
This commit is contained in:
Zhu Zihao 2020-11-27 10:16:29 +08:00 • committed by Ludovic Courtès
parent 8ea2d7c2fa
commit 16c7472b33
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
guix/channels.scm
View file

@ -72,6 +72,7 @@
openpgp-fingerprint->bytevector openpgp-fingerprint->bytevector
openpgp-fingerprint openpgp-fingerprint
%default-guix-channel
%default-channels %default-channels
guix-channel? guix-channel?
@ -170,13 +171,16 @@ to the corresponding bytevector."
;; URL of the default 'guix' channel. ;; URL of the default 'guix' channel.
"https://git.savannah.gnu.org/git/guix.git") "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 (define %default-channels
;; Default list of channels. ;; Default list of channels.
(list (channel (list %default-guix-channel))
(name 'guix)
(branch "master")
(url %default-channel-url)
(introduction %guix-channel-introduction))))
(define (guix-channel? channel) (define (guix-channel? channel)
"Return true if CHANNEL is the 'guix' channel." "Return true if CHANNEL is the 'guix' channel."