diff options
-rw-r--r-- | guix-build-coordinator/guix-data-service.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/guix-build-coordinator/guix-data-service.scm b/guix-build-coordinator/guix-data-service.scm index bb3587c..e2ecbe7 100644 --- a/guix-build-coordinator/guix-data-service.scm +++ b/guix-build-coordinator/guix-data-service.scm @@ -73,6 +73,27 @@ (event . scheduled) (build_id . ,build-id) (derivation . ,derivation-name) + ,@(or + (and=> + (datastore-find-derivation-output-details + datastore + (assq-ref build-details 'derivation-name)) + (lambda (output-details) + `((derivation_outputs + . ,(list->vector + (map + (lambda (output-details) + `((output . ,(assq-ref output-details 'output)) + (name . ,(assq-ref output-details 'name)) + ,@(if (assq-ref output-details 'hash) + `((hash_algorithm . ,(assq-ref output-details + 'hash-algorithm)) + (hash . ,(assq-ref output-details + 'hash))) + '()) + (recursive . ,(assq-ref output-details 'recursive?)))) + output-details)))))) + '()) ,@(let ((created-at (assq-ref build-details 'created-at))) (if created-at `((timestamp . ,(string->number |