branch master updated: Check for derivation before creating build products.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new 91204db  Check for derivation before creating build products.
91204db is described below

commit 91204db33ae07ce179dfc5dcf624f43b7b8117f5
Author: Mathieu Othacehe <m.othacehe@gmail.com>
AuthorDate: Fri Jun 26 10:27:50 2020 +0200

    Check for derivation before creating build products.
    
    It happens that we receive build succeeded notifications for derivations 
that
    are not stored in the Builds table. In that case, do not try to create build
    products.
    
    * src/cuirass/base.scm (handle-build-event): Check if the derivation is
    registered in the Builds table.
---
 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 3db9c4e..86e7da8 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -577,9 +577,10 @@ updating the database accordingly."
      (if (valid? drv)
          (begin
            (log-message "build succeeded: '~a'" drv)
-           (when spec
-             (create-build-outputs (db-get-build drv)
-                                   (assq-ref spec #:build-outputs)))
+           (let ((build (db-get-build drv)))
+             (when (and spec build)
+               (create-build-outputs build
+                                     (assq-ref spec #:build-outputs))))
            (db-update-build-status! drv (build-status succeeded))
 
            (for-each (match-lambda