Skip to content
Snippets Groups Projects
Unverified Commit 91204db3 authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

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.
parent 300f6253
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment