diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2022-01-23 13:29:07 +0100 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2022-01-23 14:01:30 +0100 |
commit | 67d74daf0c8b7b6d786859f0be659021f0a153d8 (patch) | |
tree | f86578e0ece3e3b9e46f7b529492b199fee1c8b3 /etc/committer.scm.in | |
parent | cd0afa134558743e5719b2b067c3350aa515ec48 (diff) | |
download | guix-67d74daf0c8b7b6d786859f0be659021f0a153d8.tar guix-67d74daf0c8b7b6d786859f0be659021f0a153d8.tar.gz |
etc: committer: Support plain input lists.
* etc/committer.scm.in (change-commit-message): Support new-style plain list
inputs in addition to old-style inputs with labels.
Diffstat (limited to 'etc/committer.scm.in')
-rwxr-xr-x | etc/committer.scm.in | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/etc/committer.scm.in b/etc/committer.scm.in index 1ad83e37d7..5a57d51577 100755 --- a/etc/committer.scm.in +++ b/etc/committer.scm.in @@ -215,7 +215,12 @@ corresponding to the top-level definition containing the staged changes." "Print ChangeLog commit message for changes between OLD and NEW." (define (get-values expr field) (match ((sxpath `(// ,field quasiquote *)) expr) - (() '()) + (() + ;; New-style plain lists + (match ((sxpath `(// ,field list *)) expr) + ((inner) inner) + (_ '()))) + ;; Old-style labelled inputs ((first . rest) (map cadadr first)))) (define (listify items) |