diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-02-20 15:35:33 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-02-20 15:35:33 +0000 |
| commit | 2ff89b7a4ae07fdcd285ec8147f1e8ceb8722786 (patch) | |
| tree | a48f85e8d4a41ecd496e03126473b155ca5e7aa2 | |
| parent | 768303d4d447b8b825995aa50d22f4b152fbfa7b (diff) | |
| download | build-coordinator-2ff89b7a4ae07fdcd285ec8147f1e8ceb8722786.tar build-coordinator-2ff89b7a4ae07fdcd285ec8147f1e8ceb8722786.tar.gz | |
Better report delays for read-derivation-from-file*
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 7fd339c..a3ad502 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -508,12 +508,14 @@ derivation-file #:substitute-urls substitute-urls))))) ;; Read the derivation in a thread to avoid blocking fibers - (call-with-delay-logging + (call-with-thread + utility-thread-pool (lambda () - (call-with-thread - utility-thread-pool - (lambda () - (read-derivation-from-file* derivation-file)))))) + (read-derivation-from-file* derivation-file)) + #:duration-logger + (lambda (duration) + (log-delay read-derivation-from-file* + duration)))) (let ((submit-build-result (call-with-delay-logging |