aboutsummaryrefslogtreecommitdiff
path: root/etc/committer.scm.in
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2022-01-23 13:29:07 +0100
committerRicardo Wurmus <rekado@elephly.net>2022-01-23 14:01:30 +0100
commit67d74daf0c8b7b6d786859f0be659021f0a153d8 (patch)
treef86578e0ece3e3b9e46f7b529492b199fee1c8b3 /etc/committer.scm.in
parentcd0afa134558743e5719b2b067c3350aa515ec48 (diff)
downloadguix-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-xetc/committer.scm.in7
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)