diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-01-30 10:05:07 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-01-30 10:05:07 +0000 |
| commit | d9fa7947c25d0624c568f744ad2a2683a43e5644 (patch) | |
| tree | c3dc0aa1155700cd90400f0e324ef5c34664f2ca /scripts/guix-build-coordinator.in | |
| parent | dc04b747048638a753bd044646306fcdd33c241a (diff) | |
| download | build-coordinator-d9fa7947c25d0624c568f744ad2a2683a43e5644.tar build-coordinator-d9fa7947c25d0624c568f744ad2a2683a43e5644.tar.gz | |
Expose the derived priorities for builds
Diffstat (limited to 'scripts/guix-build-coordinator.in')
| -rw-r--r-- | scripts/guix-build-coordinator.in | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/scripts/guix-build-coordinator.in b/scripts/guix-build-coordinator.in index 23a356f..62b48e2 100644 --- a/scripts/guix-build-coordinator.in +++ b/scripts/guix-build-coordinator.in @@ -463,12 +463,16 @@ rest))) (define (display-build build-details) (simple-format #t "derivation name: ~A -priority: ~A -processed?: ~A -canceled?: ~A +priority: ~A +processed?: ~A +canceled?: ~A " (assoc-ref build-details "derivation-name") - (assoc-ref build-details "priority") + (if (assoc-ref build-details "processed") + (assoc-ref build-details "priority") + (simple-format #f "~A\nderived priority: ~A" + (assoc-ref build-details "priority") + (assoc-ref build-details "derived-priority"))) (if (assoc-ref build-details "processed") "yes" "no") |