diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-06-21 15:46:53 +0200 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-06-21 15:46:53 +0200 |
| commit | 398b8aab05ec884b8bc3013d13031c1b79466f72 (patch) | |
| tree | cb2569b0640665b356ffceeeafb88628d523d09a | |
| parent | 548e6283984225c0a8dbe26f237751cb3df25ec9 (diff) | |
| download | data-service-398b8aab05ec884b8bc3013d13031c1b79466f72.tar data-service-398b8aab05ec884b8bc3013d13031c1b79466f72.tar.gz | |
Log the time loading new revisions takes
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index d5c2da4..bd675e4 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -551,7 +551,10 @@ ORDER BY load_new_guix_revision_jobs.id DESC") id commit source) (exec-query conn "BEGIN") (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)) (begin (record-job-succeeded conn id) |