diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-22 13:28:43 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-22 13:30:03 +0100 |
commit | 47cd2d74700ac8d4df493d3a0907140a49450e10 (patch) | |
tree | e37aa513bae67a64bfc5d5923a1ebca67433733b /src/cuirass/base.scm | |
parent | 70f21349bd5e73a7507bc5f35219ba6c1379e2f1 (diff) | |
download | cuirass-47cd2d74700ac8d4df493d3a0907140a49450e10.tar cuirass-47cd2d74700ac8d4df493d3a0907140a49450e10.tar.gz |
Log activity of the main loop.
* src/cuirass/base.scm (process-specs): Add 'log-message' calls.
Diffstat (limited to 'src/cuirass/base.scm')
-rw-r--r-- | src/cuirass/base.scm | 11 |
1 files changed, 10 insertions, 1 deletions
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)))))) |