aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/datastore/sqlite.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r--guix-build-coordinator/datastore/sqlite.scm16
1 files changed, 8 insertions, 8 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 4ecd83e..3cec6df 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -2024,14 +2024,14 @@ WHERE agent_id = :agent_id"
(metrics-registry-fetch-metric
(slot-ref datastore 'metrics-registry)
"build_allocation_plan_total")))
- (metric-set allocation-plan-metric
- (or (assoc-ref
- (datastore-count-build-allocation-plan-entries
- datastore)
- agent-id)
- 0)
- #:label-values
- `((agent_id . ,agent-id)))))
+ (for-each
+ (match-lambda
+ ((agent-id . count)
+ (metric-set allocation-plan-metric
+ count
+ #:label-values
+ `((agent_id . ,agent-id)))))
+ (datastore-count-build-allocation-plan-entries datastore))))
;; Previously allocate builds just returned newly allocated
;; builds, but if max-builds is provided, return all the