diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-26 15:45:14 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-26 15:45:14 +0100 |
| commit | 8a077b607805bbbb289dffbe6e8f4882ae40474d (patch) | |
| tree | 31f36e781f24a257d5d72cbbcaff05584583a06f | |
| parent | 93ffdacac240fea84985c71c601f7faf2dc2a9d3 (diff) | |
| download | build-coordinator-8a077b607805bbbb289dffbe6e8f4882ae40474d.tar build-coordinator-8a077b607805bbbb289dffbe6e8f4882ae40474d.tar.gz | |
Include build tags in the agent-builds-allocated event
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 3c9fb88..08574c0 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1220,7 +1220,22 @@ build-coordinator "agent-builds-allocated" `((agent_id . ,agent) - (builds . ,(list->vector builds)))) + (builds . ,(list->vector + (map + (lambda (build) + `(,@build + (tags + . ,(list->vector + (map + (match-lambda + ((key . value) + `((key . ,key) + (value . ,value)))) + (vector->list + (datastore-fetch-build-tags + datastore + (assq-ref build 'uuid)))))))) + builds))))) (map (lambda (build) (define submit-outputs? |