From 3a50380006bbe5b653f18f8b3d10ae0793820a1c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 20 Dec 2021 10:15:15 +0000 Subject: Log delays when worker thread calls occur inside worker threads --- guix-build-coordinator/utils/fibers.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix-build-coordinator/utils') 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) -- cgit v1.2.3