diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 9677e74..f5be80d 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -52,6 +52,7 @@ build-output-file-location build-log-file-location + handle-build-start-report handle-build-result handle-setup-failure-report)) @@ -422,6 +423,13 @@ #f)) #t)))) +(define (handle-build-start-report datastore + agent-id + build-id) + (datastore-store-build-start datastore + build-id + agent-id)) + (define (handle-setup-failure-report datastore agent-id build-id report-json) (let ((failure-reason (assoc-ref report-json "failure_reason"))) |