From 5f5b8fc91dae1a8cd01c3cbee05242d0a46f123f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 31 Mar 2024 19:55:46 +0100 Subject: Stop using a inferior-package-derivations lock As this isn't for correctness reasons, but resource usage. I'm hoping to manage this differently. --- guix-data-service/jobs/load-new-guix-revision.scm | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 3ef078c..ab838ce 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1446,16 +1446,6 @@ (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 @@ -1535,7 +1525,6 @@ 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") -- cgit v1.2.3