diff options
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 11 |
1 files changed, 11 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 b0493ca..f6d4292 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1445,6 +1445,16 @@ (lambda (filename) (put-message channel filename)))) + (define lock-num + ;; I'm seeing problems with the guix-dameon WAL growing excessively, which + ;; I think is happening when processing revivions involving lots of new + ;; derivations. So limit the concurrency here in the hope that this'll + ;; help. + (with-time-logging "getting 'inferior-package-derivations lock" + (lock-advisory-session-lock + conn + 'inferior-package-derivations))) + (simple-format #t "debug: extract-information-from: ~A\n" store-path) (letpar& ((inferior-lint-checkers-and-warnings-data @@ -1524,6 +1534,7 @@ pkg-to-replacement-hash-table)))))))) (destroy-resource-pool inf-and-store-pool) + (unlock-advisory-session-lock conn lock-num) (simple-format #t "debug: finished loading information from inferior\n") |