cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Stop using a inferior-package-derivations lock

Browse source 
As this isn't for correctness reasons, but resource usage. I'm hoping to
manage this differently.
This commit is contained in:
Christopher Baines 2024-03-31 19:55:46 +01:00
parent 5d0e84bac4
commit 5f5b8fc91d
1 changed files with 0 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

11
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1446,16 +1446,6 @@
(lambda (filename) (lambda (filename)
(put-message channel 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) (simple-format #t "debug: extract-information-from: ~A\n" store-path)
(letpar& ((inferior-lint-checkers-and-warnings-data (letpar& ((inferior-lint-checkers-and-warnings-data
@ -1535,7 +1525,6 @@
pkg-to-replacement-hash-table)))))))) pkg-to-replacement-hash-table))))))))
(destroy-resource-pool inf-and-store-pool) (destroy-resource-pool inf-and-store-pool)
(unlock-advisory-session-lock conn lock-num)
(simple-format (simple-format
#t "debug: finished loading information from inferior\n") #t "debug: finished loading information from inferior\n")