diff options
author | Christopher Baines <mail@cbaines.net> | 2022-05-22 11:06:48 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2022-05-22 11:06:48 +0100 |
commit | 9971e83db3f7fd676d95d4af99a9fcd3350331bf (patch) | |
tree | 013b324d5c6922eff1e4fd4052badcbfdccbe664 /guix-build-coordinator/client-communication.scm | |
parent | f03ec8ec1e0aed28c046024a2131ea7484037b55 (diff) | |
download | build-coordinator-9971e83db3f7fd676d95d4af99a9fcd3350331bf.tar build-coordinator-9971e83db3f7fd676d95d4af99a9fcd3350331bf.tar.gz |
Add delay logging around submitting builds
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 6 |
1 files changed, 4 insertions, 2 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 |