diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-02-02 10:24:11 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-02-02 11:14:35 +0100 |
| commit | 908f6d3eeebd0bbfefce4c6421d66e60b76886cd (patch) | |
| tree | 0269fb60c6bf99b936694d4e618ef5961c6de241 | |
| parent | 956aa9ecb046f4dc1d8287f0db316b5b4baf4ad7 (diff) | |
| download | data-service-908f6d3eeebd0bbfefce4c6421d66e60b76886cd.tar data-service-908f6d3eeebd0bbfefce4c6421d66e60b76886cd.tar.gz | |
Log the time to lock load-new-guix-revision-inserts
| -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)) |