From 185ba3685379c5f047c0f0804226e4f9c80d6d46 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 28 Feb 2020 20:41:44 +0000 Subject: [PATCH] Log the time spent in a locked section --- guix-data-service/jobs/load-new-guix-revision.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 0f9cbba..3b5ce10 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -279,7 +279,11 @@ WHERE job_id = $1" (let ((time-taken (- (current-time) start-time))) (simple-format #t "debug: Finished aquiring lock ~A, took ~A seconds\n" lock time-taken)) - (f))))) + (let ((result (f))) + (let ((time-spent (- (current-time) start-time))) + (simple-format #t "debug: Releasing lock ~A, spent ~A seconds\n" + lock time-spent)) + result))))) (define (all-inferior-system-tests inf store) (define extract