[no subject]

[Ludovic Courtès]

branch: master
commit 47cd2d74700ac8d4df493d3a0907140a49450e10
Author: Ludovic Courtès <address@hidden>
Date:   Mon Jan 22 13:28:43 2018 +0100

    Log activity of the main loop.
    
    * src/cuirass/base.scm (process-specs): Add 'log-message' calls.
---
 src/cuirass/base.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index d57612e..7aa4dd4 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -347,9 +347,14 @@ and so on. "
   "Evaluate and build JOBSPECS and store results in DB."
   (define (process spec)
     (with-store store
-      (let ((stamp (db-get-stamp db spec)))
+      (let ((stamp (db-get-stamp db spec))
+            (name  (assoc-ref spec #:name)))
+         (log-message "considering spec '~a', URL '~a'"
+                      name (assoc-ref spec #:url))
          (receive (checkout commit)
              (fetch-repository store spec)
+           (log-message "spec '~a': fetched commit ~s (stamp was ~s)"
+                        name commit stamp)
            (when commit
              (unless (string=? commit stamp)
                (copy-repository-cache checkout spec)
@@ -368,8 +373,12 @@ and so on. "
                           (format #t "Failed to evaluate ~s specification.~%"
                                   (evaluation-error-spec-name c))
                           #f))
+                 (log-message "evaluating '~a' with commit ~s"
+                              name commit)
                  (let* ((spec* (acons #:current-commit commit spec))
                         (jobs  (evaluate store db spec*)))
+                   (log-message "building ~a jobs for '~a'"
+                                (length jobs) name)
                    (build-packages store db jobs))))
              (db-add-stamp db spec commit))))))