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

Log the time loading new revisions takes

Browse source
This commit is contained in:
Christopher Baines 2019-06-21 15:46:53 +02:00
parent 548e628398
commit 398b8aab05
1 changed files with 4 additions and 1 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

@ -551,7 +551,10 @@ ORDER BY load_new_guix_revision_jobs.id DESC")
id commit source) id commit source)
(exec-query conn "BEGIN") (exec-query conn "BEGIN")
(if (or (guix-revision-exists? conn git-repository-id commit) (if (or (guix-revision-exists? conn git-repository-id commit)
(eq? (load-new-guix-revision conn git-repository-id commit) (eq? (log-time
(string-append "loading revision " commit)
(lambda ()
(load-new-guix-revision conn git-repository-id commit)))
#t)) #t))
(begin (begin
(record-job-succeeded conn id) (record-job-succeeded conn id)