diff options
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 11 |
1 files 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)) |