diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-15 14:43:11 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-16 21:34:13 -0400 |
| commit | ecab937897385fce3e3ce0c5f128afba4304187c (patch) | |
| tree | 56f31f9b24fcc07657bc688fe68a2b832534e5e0 | |
| parent | addffd09884897d8977cd90da09c3bc1c9d2689a (diff) | |
pull: Tag commit argument with 'tag-or-commit.
For compatibility with (guix git) procedures.
* guix/scripts/pull.scm (channel-list): Also accept tag-or-commit tagged
refspec.
| -rw-r--r-- | guix/scripts/pull.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/scripts/pull.scm b/guix/scripts/pull.scm index ecd264d3fa..9b78d4b5ca 100644 --- a/guix/scripts/pull.scm +++ b/guix/scripts/pull.scm @@ -166,7 +166,7 @@ Download and deploy the latest version of Guix.\n")) (alist-delete 'repository-url result)))) (option '("commit") #t #f (lambda (opt name arg result) - (alist-cons 'ref `(commit . ,arg) result))) + (alist-cons 'ref `(tag-or-commit . ,arg) result))) (option '("branch") #t #f (lambda (opt name arg result) (alist-cons 'ref `(branch . ,arg) result))) @@ -774,7 +774,8 @@ Use '~/.config/guix/channels.scm' instead.")) (if (guix-channel? c) (let ((url (or url (channel-url c)))) (match ref - (('commit . commit) + ((or ('commit . commit) + ('tag-or-commit . commit)) (channel (inherit c) (url url) (commit commit) (branch #f))) (('branch . branch) |