[no subject]

[Mathieu Othacehe]

branch: master
commit d5724217d9d5a17a76c3d49f0daf2ddc73c6a292
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Mar 26 13:56:47 2021 +0100

    base: Record the log file.
    
    * src/cuirass/base.scm (handle-build-event): Add a store argument and use it
    to record the log file.
    (spawn-builds): Adapt it.
---
 src/cuirass/base.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 37b58e1..44f3711 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -483,7 +483,7 @@ items."
                                    ;; from PORT and eventually close it.
                                    (catch #t
                                      (lambda ()
-                                       (handle-build-event event))
+                                       (handle-build-event store event))
                                      (exception-reporter state)))
                                  #t)
               (close-port port)
@@ -499,7 +499,7 @@ items."
 
           (loop rest (max (- count max-batch-size) 0))))))
 
-(define* (handle-build-event event)
+(define* (handle-build-event store event)
   "Handle EVENT, a build event sexp as produced by 'build-event-output-port',
 updating the database accordingly."
   (define (valid? file)
@@ -521,7 +521,8 @@ updating the database accordingly."
      (if (valid? drv)
          (begin
            (log-message "build started: '~a'" drv)
-           (db-update-build-status! drv (build-status started)))
+           (db-update-build-status! drv (build-status started)
+                                    #:log-file (log-file store drv)))
          (log-message "bogus build-started event for '~a'" drv)))
     (('build-remote drv host _ ...)
      (log-message "'~a' offloaded to '~a'" drv host)