diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-11 12:24:52 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-11 12:24:52 +0100 |
| commit | b3fa7ed49edf0654c94dd66ee4d07d9973bf23b6 (patch) | |
| tree | 322106bec6082a1d8edd467c26a8370d352ba669 | |
| parent | 2cd06f2cf8a20f719aa3823eeffac8c39b768504 (diff) | |
| download | build-coordinator-b3fa7ed49edf0654c94dd66ee4d07d9973bf23b6.tar build-coordinator-b3fa7ed49edf0654c94dd66ee4d07d9973bf23b6.tar.gz | |
Fix tags datastructure in the queue builds script
| -rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 18 |
1 files changed, 12 insertions, 6 deletions
diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index 318621c..84d4acc 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -215,10 +215,13 @@ (simple-format #f "channel instance (~A): ~A: " system derivation) - #:tags `((category . channel-instance) - (revision . ,commit) + #:tags `(((key . category) + (value . channel-instance)) + ((key . revision) + (value . ,commit)) ,@(if branch - `((branch . ,branch)) + `((key . branch) + (value . ,branch)) '())))) (channel-instance-derivations-for-commit guix-data-service commit @@ -251,10 +254,13 @@ #:log-prefix (simple-format #f "package (~A=>~A): ~A: " system target derivation) - #:tags `((category . package) - (revision . ,commit) + #:tags `(((key . category) + (value . package)) + ((key . revision) + (value . ,commit)) ,@(if branch - `((branch . ,branch)) + `((key . branch) + (value . ,branch)) '()))))) unprocessed-package-derivations) (record-derivations-as-processed unprocessed-package-derivations)))) |