ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-15 11:25:22 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

channels: Add the channel name to channel sexps.

Browse source 
* guix/channels.scm (channel-instance->sexp): Add 'name'.
(sexp->channel): Extract the name from SEXP, using the optional argument
as a fallback.
This commit is contained in:
Ludovic Courtès 2021-01-10 18:57:01 +01:00
parent 9272cc700e
commit a47f16a874
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/channels.scm
View file

@ -812,6 +812,7 @@ (define (channel-instance->sexp instance)
(url ,(channel-url channel))
(branch ,(channel-branch channel))
(commit ,commit)
(name ,(channel-name channel))
,@(if intro
`((introduction
(channel-introduction
@ -907,16 +908,22 @@ (define* (latest-channel-derivation #:optional (channels %default-channels)
(channel-instances->derivation instances)))
(define* (sexp->channel sexp #:optional (name 'channel))
"Read SEXP, a provenance sexp as created by 'channel-instance->sexp',
and return a channel called NAME. Return #f if the sexp does not have the
expected structure."
"Read SEXP, a provenance sexp as created by 'channel-instance->sexp'; use
NAME as the channel name if SEXP does not specify it. Return #f if the sexp
does not have the expected structure."
(match sexp
(('repository ('version 0)
('url url)
('branch branch)
('commit commit)
rest ...)
(channel (name name)
;; Historically channel sexps did not include the channel name. It's OK
;; for channels created by 'channel-instances->manifest' because the
;; entry name is the channel name, but it was missing for entries created
;; by 'manifest-entry-with-provenance'.
(channel (name (match (assq 'name rest)
(#f name)
(('name name) name)))
(url url)
(commit commit)
(introduction