diff options
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 401a2c7..a69b690 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -553,6 +553,11 @@ (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) + (let* ((package-derivation-ids (packages-and-inferior-data->package-derivation-ids conn inf packages inferior-data-4-tuples)) |