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

5
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)
(log-time
"lock table: package_versions_by_guix_revision_range"
(lambda ()
;; Lock the table to wait for other transactions to commit before updating ;; Lock the table to wait for other transactions to commit before updating
;; the table ;; the table
(exec-query (exec-query
conn 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