diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-12-20 10:15:15 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-12-20 10:15:15 +0000 |
| commit | 3a50380006bbe5b653f18f8b3d10ae0793820a1c (patch) | |
| tree | 9953560732a2a3ada905255a2888b72ad3bb3f67 /guix-build-coordinator/utils | |
| parent | 87827e57be4b237054a1b17ea6e5bbbbef0b4362 (diff) | |
| download | build-coordinator-3a50380006bbe5b653f18f8b3d10ae0793820a1c.tar build-coordinator-3a50380006bbe5b653f18f8b3d10ae0793820a1c.tar.gz | |
Log delays when worker thread calls occur inside worker threads
Diffstat (limited to 'guix-build-coordinator/utils')
| -rw-r--r-- | guix-build-coordinator/utils/fibers.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/utils/fibers.scm b/guix-build-coordinator/utils/fibers.scm index 8aef7cc..a8b6738 100644 --- a/guix-build-coordinator/utils/fibers.scm +++ b/guix-build-coordinator/utils/fibers.scm @@ -4,6 +4,7 @@ #:use-module (fibers) #:use-module (fibers channels) #:use-module (fibers conditions) + #:use-module (guix-build-coordinator utils) #:export (make-worker-thread-channel call-with-worker-thread @@ -86,7 +87,7 @@ arguments of the worker thread procedure." If already in the worker thread, call PROC immediately." (let ((args (%worker-thread-args))) (if args - (apply proc args) + (call-with-delay-logging proc #:args args) (let ((reply (make-channel))) (put-message channel (list reply (get-internal-real-time) proc)) (match (get-message reply) |