cbaines pushed a commit to branch master in repository data-service. commit 994318782a8184d3967d6b4b0e08391910879fc8 Author: Christopher Baines <m...@cbaines.net> AuthorDate: Tue Mar 24 21:36:13 2020 +0000
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. --- guix-data-service/jobs/load-new-guix-revision.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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