[no subject]

[Ludovic Courtès]

branch: master
commit 63b5f6db80346cab94692de3c1bd3f30a4f9114d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 2 00:26:49 2023 +0200

    base: Fix logging levels for build logs.
    
    * src/cuirass/base.scm (handle-build-event): Use logging levels more
    appropriate than 'log-error'.
---
 src/cuirass/base.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 7e898b8..4af84c0 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -462,32 +462,32 @@ updating the database accordingly."
     (('build-started drv _ ...)
      (if (valid? drv)
          (begin
-           (log-error "build started: '~a'" drv)
+           (log-info "build started: '~a'" drv)
            (db-update-build-status! drv (build-status started)
                                     #:log-file (log-file store drv)))
          (log-error "bogus build-started event for '~a'" drv)))
     (('build-remote drv host _ ...)
-     (log-error "'~a' offloaded to '~a'" drv host)
+     (log-info "'~a' offloaded to '~a'" drv host)
      (db-update-build-worker! drv host))
     (('build-succeeded drv _ ...)
      (if (valid? drv)
          (begin
-           (log-error "build succeeded: '~a'" drv)
+           (log-info "build succeeded: '~a'" drv)
            (set-build-successful! drv)
            (register-gc-roots drv))
-         (log-error "bogus build-succeeded event for '~a'" drv)))
+         (log-warning "bogus build-succeeded event for '~a'" drv)))
     (('build-failed drv _ ...)
      (if (valid? drv)
          (begin
-           (log-error "build failed: '~a'" drv)
+           (log-info "build failed: '~a'" drv)
            (db-update-build-status! drv (build-status failed)))
-         (log-error "bogus build-failed event for '~a'" drv)))
+         (log-warning "bogus build-failed event for '~a'" drv)))
     (('substituter-started item _ ...)
-     (log-error "substituter started: '~a'" item))
+     (log-debug "substituter started: '~a'" item))
     (('substituter-succeeded item _ ...)
-     (log-error "substituter succeeded: '~a'" item))
+     (log-debug "substituter succeeded: '~a'" item))
     (_
-     (log-error "build event: ~s" event))))
+     (log-debug "build event: ~s" event))))
 
 (define (build-derivation=? build1 build2)
   "Return true if BUILD1 and BUILD2 correspond to the same derivation."