[no subject]

[Ludovic Courtès]

branch: master
commit f92fba11849364603277e073ab024b7719ddcc56
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 2 10:01:27 2023 +0200

    base: Log successful checkouts.
    
    * src/cuirass/base.scm (process-specs): Add 'log-info' call in
    'new-channels' value.
---
 src/cuirass/base.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index d2bacc4..b2526fc 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -642,9 +642,13 @@ specification."
              (timestamp (time-second (current-time time-utc)))
              (channels (specification-channels spec))
              (instances (non-blocking
-                         (log-info "Fetching channels for spec '~a'." name)
+                         (log-info "fetching channels for spec '~a'" name)
                          (latest-channel-instances* store channels)))
-             (new-channels (map channel-instance-channel instances))
+             (new-channels (let ((channels (map channel-instance-channel
+                                                instances)))
+                             (log-info "fetched channels for '~a':~{ ~a~}"
+                                       name (map channel-name channels))
+                             channels))
              (new-spec (specification
                         (inherit spec)
                         (channels new-channels))) ;include possible channel