summary refs log tree commit diff
path: root/etc/committer.scm.in
diff options
context:
space:
mode:
authorAttila Lendvai <attila@lendvai.name>2024-09-30 10:00:42 +0200
committerLudovic Courtès <ludo@gnu.org>2024-10-15 18:40:09 +0200
commit56e3cbddb6586d02f886e9d0f27feadb17d657b0 (patch)
tree8f44a6a3ebc89e27426b01a8d7eeec635483162a /etc/committer.scm.in
parentb59632da27aec2e4333df647ff76f9830f97f431 (diff)
downloadguix-56e3cbddb6586d02f886e9d0f27feadb17d657b0.tar.gz
committer: Fix for inputs that are lists by using object->string.
* etc/committer.scm.in (change-commit-message): Use object->string to deal
with more complex dependency specifications.

Change-Id: Ieee39709fd3eb26368df400a9228d77aa97a9d9d
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'etc/committer.scm.in')
-rwxr-xr-xetc/committer.scm.in5
1 files changed, 3 insertions, 2 deletions
diff --git a/etc/committer.scm.in b/etc/committer.scm.in
index c49935da60..9b128c8f1e 100755
--- a/etc/committer.scm.in
+++ b/etc/committer.scm.in
@@ -301,8 +301,9 @@ corresponding to the top-level definition containing the staged changes."
                       (format port
                               "[~a]: ~a~%" field
                               (break-string
-                               (match (list (map symbol->string removed)
-                                            (map symbol->string added))
+                               ;; A dependency can be a list of (pkg output).
+                               (match (list (map object->string removed)
+                                            (map object->string added))
                                  ((() added)
                                   (format #f "Add ~a."
                                           (listify added)))