diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-03-24 21:36:13 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-24 21:36:13 +0000 |
| commit | 994318782a8184d3967d6b4b0e08391910879fc8 (patch) | |
| tree | f3ed1d052c96f0b289e9eb6b137063ef7e7416c5 /guix-data-service | |
| parent | ca0d3ee7543b64eca32422a8e29f5f853923750f (diff) | |
| download | data-service-994318782a8184d3967d6b4b0e08391910879fc8.tar data-service-994318782a8184d3967d6b4b0e08391910879fc8.tar.gz | |
Pass #:store to checkers that support it
The derivation checker currently opens a store connection on its own, but by
passing the already open connection in, it won't have to do that, and
hopefully this will make checking all the packages faster.
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 10 |
1 files changed, 9 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 7781c76..91183e5 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -347,6 +347,10 @@ WHERE job_id = $1" %local-checkers)) (check (lint-checker-check checker))) + (define lint-checker-requires-store?-defined? + (defined? 'lint-checker-requires-store? + (resolve-module '(guix lint)))) + (define (process-lint-warning lint-warning) (list (match (lint-warning-location lint-warning) @@ -397,7 +401,11 @@ WHERE job_id = $1" (cons package-id (map process-lint-warning - (check package)))) + (if (and lint-checker-requires-store?-defined? + (lint-checker-requires-store? checker)) + + (check package #:store store) + (check package))))) %package-table))))) (and |