diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-25 17:54:55 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-07-01 23:34:51 +0200 |
| commit | eb5cf39e66a51eb357ca0c08f4409d00ec3b24a9 (patch) | |
| tree | 0748ab8b9c0b983fa4c6a677dcff386fc58a58fd /guix | |
| parent | 6d39f0cb7791ff1a6feb0084dad9851a820a900c (diff) | |
| download | guix-patches-eb5cf39e66a51eb357ca0c08f4409d00ec3b24a9.tar guix-patches-eb5cf39e66a51eb357ca0c08f4409d00ec3b24a9.tar.gz | |
services: provenance: Save channel introductions.
* gnu/services.scm (channel->code): Include CHANNEL's introduction, if
any, unless CHANNEL is the singleton %DEFAULT-CHANNELS.
(channel->sexp): Add comment.
* guix/scripts/system.scm (sexp->channel): Change pattern to allow for
extensibility.
Diffstat (limited to 'guix')
| -rw-r--r-- | guix/scripts/system.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/system.scm b/guix/scripts/system.scm index d9cf45da23..28aaa6e3bc 100644 --- a/guix/scripts/system.scm +++ b/guix/scripts/system.scm @@ -453,7 +453,9 @@ list of services." (('channel ('name name) ('url url) ('branch branch) - ('commit commit)) + ('commit commit) + rest ...) + ;; XXX: In the future REST may include a channel introduction. (channel (name name) (url url) (branch branch) (commit commit))))) |