From 908f6d3eeebd0bbfefce4c6421d66e60b76886cd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 2 Feb 2020 10:24:11 +0100 Subject: Log the time to lock load-new-guix-revision-inserts --- guix-data-service/jobs/load-new-guix-revision.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index cd02706..3397a68 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -907,10 +907,13 @@ WHERE job_id = $1" (lambda () (all-inferior-package-derivations store inf packages))))) - ;; Wait until this is the only transaction inserting data, to - ;; avoid any concurrency issues - (obtain-advisory-transaction-lock conn - 'load-new-guix-revision-inserts) + (log-time + "acquiring advisory transaction lock: load-new-guix-revision-inserts" + (lambda () + ;; Wait until this is the only transaction inserting data, to + ;; avoid any concurrency issues + (obtain-advisory-transaction-lock conn + 'load-new-guix-revision-inserts))) (let* ((package-ids (insert-packages conn inf packages)) -- cgit v1.2.3