~ruther/guix-local

67d74daf0c8b7b6d786859f0be659021f0a153d8 — Ricardo Wurmus 4 years ago cd0afa1
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.
1 files changed, 6 insertions(+), 1 deletions(-)

M etc/committer.scm.in
M etc/committer.scm.in => etc/committer.scm.in +6 -1
@@ 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)