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

Log the time to lock package_versions_by_guix_revision_range

Browse source
This commit is contained in:
Christopher Baines 2020-02-02 10:24:29 +01:00
parent 908f6d3eee
commit 65850669a0
1 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -984,13 +984,16 @@ WHERE job_id = $1"
(display-backtrace (make-stack #t) (current-error-port))))))) (display-backtrace (make-stack #t) (current-error-port)))))))
(define (update-package-versions-table conn git-repository-id commit) (define (update-package-versions-table conn git-repository-id commit)
;; Lock the table to wait for other transactions to commit before updating (log-time
;; the table "lock table: package_versions_by_guix_revision_range"
(exec-query (lambda ()
conn ;; Lock the table to wait for other transactions to commit before updating
" ;; the table
(exec-query
conn
"
LOCK TABLE ONLY package_versions_by_guix_revision_range LOCK TABLE ONLY package_versions_by_guix_revision_range
IN SHARE ROW EXCLUSIVE MODE") IN SHARE ROW EXCLUSIVE MODE")))
(for-each (for-each
(match-lambda (match-lambda