branch: main
commit 6dc73970d4b16c16a7639ac50da067194837615d
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Thu Sep 19 10:41:48 2024 +0200
remote-server: Add build dependency edges unconditionally.
This is a followup to fbd778a5cb4375744517064d13608b85db7e2626.
* src/cuirass/scripts/remote-server.scm (insert-build-for-dependency):
Move ‘db-add-build-dependencies’ call out of ‘when’.
---
src/cuirass/scripts/remote-server.scm | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/src/cuirass/scripts/remote-server.scm
b/src/cuirass/scripts/remote-server.scm
index 9dba242..b6b34f0 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -484,10 +484,12 @@ with a corresponding 'Builds' entry."
(log (log-path (%cache-directory) derivation))))
(id (db-add-build dependency)))
(when id
- (db-add-build-dependencies (build-derivation parent)
- (list (build-derivation dependency)))
(log-info "registered build ~a for ghost dependency '~a'"
- id (build-derivation dependency)))))
+ id (build-derivation dependency)))
+
+ ;; Add dependency edges unconditionally (it's idempotent).
+ (db-add-build-dependencies (build-derivation parent)
+ (list (build-derivation dependency)))))
(define (serve-build-requests backend-port fetch-worker worker-directory)
"Open a zmq socket on BACKEND-PORT and listen for messages coming from
