From 9971e83db3f7fd676d95d4af99a9fcd3350331bf Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 May 2022 11:06:48 +0100 Subject: Add delay logging around submitting builds --- guix-build-coordinator/client-communication.scm | 6 ++++-- guix-build-coordinator/coordinator.scm | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 27f98ff..9d0b7d1 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -398,8 +398,9 @@ (read-derivation-from-file derivation-file))) (let ((submit-build-result - (apply + (call-with-delay-logging submit-build + #:args `(,build-coordinator ,derivation-file #:read-drv @@ -435,7 +436,8 @@ (lambda (date) `(#:defer-until ,(string->date date "~Y-~m-~d ~H:~M:~S")))) - '()))))) + '())) + #:threshold 10))) (render-json submit-build-result)))) (_ (render-json diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 16ac81d..06882de 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -414,7 +414,7 @@ (build-for-derivation-exists?)) '((no-build-submitted . build-already-exists-for-this-derivation)) (if (and ignore-if-build-for-outputs-exists? - (build-for-output-already-exists?)) + (call-with-delay-logging build-for-output-already-exists?)) '((no-build-submitted . build-already-exists-for-a-output)) (begin ;; Store the derivation first, so that listing related @@ -422,7 +422,9 @@ (unless (datastore-find-derivation datastore derivation-file) (datastore-store-derivation datastore - (read-drv derivation-file))) + (call-with-delay-logging read-drv + #:threshold 10 + #:args (list derivation-file)))) (let ((related-derivations-lacking-builds (if ensure-all-related-derivation-outputs-have-builds? -- cgit v1.2.3