diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:43:26 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-02 08:43:26 +0000 |
| commit | 75d13b9b90648722051a1e7fed74671ab62e9e5c (patch) | |
| tree | 8f0fe911b75a90177da8a1f8646c60889d9b87b9 /guix-build-coordinator/hooks.scm | |
| parent | 4f01efca0e44da0f4c4677d47c5002daaca4d446 (diff) | |
| download | build-coordinator-75d13b9b90648722051a1e7fed74671ab62e9e5c.tar build-coordinator-75d13b9b90648722051a1e7fed74671ab62e9e5c.tar.gz | |
Copy build tags in the failure retry hook
As this probably makes sense to do.
Diffstat (limited to 'guix-build-coordinator/hooks.scm')
| -rw-r--r-- | guix-build-coordinator/hooks.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index 22c1650..02c4857 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -249,7 +249,10 @@ (lambda (retry) (let ((details (submit-build build-coordinator derivation-name - #:priority (assq-ref build-details 'priority)))) + #:priority (assq-ref build-details 'priority) + #:tags (datastore-fetch-build-tags + datastore + build-id)))) (display (simple-format #f "~A: submitted retry ~A as ~A\n" build-id |