[no subject]

[Ludovic Courtès]

branch: master
commit 9c25f943ed1c13a1e41191f2a2d647681ed5ac32
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Sep 25 18:06:20 2023 +0200

    base: ‘channel-update-service’ correctly reports system errors.
    
    * src/cuirass/base.scm (channel-update-service): Add missing argument in
    'system-error handling, and improve message.
---
 src/cuirass/base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index d114d24..70324aa 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -513,7 +513,8 @@ to update Git checkouts, effectively serializing all Git 
operations."
                               (git-error-message
                                (first (exception-args exception)))))
                   ('system-error
-                   (log-error "while processing '~a': ~s"
+                   (log-error "while fetching channels from~{ ~a~}': ~s"
+                              (map channel-url channels)
                               (strerror
                                (system-error-errno
                                 (cons 'system-error