branch: master
commit 9c25f943ed1c13a1e41191f2a2d647681ed5ac32
Author: Ludovic Courtès <[email protected]>
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
