diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-03-15 18:48:01 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-03-15 20:58:53 +0000 |
| commit | 5a135cc0f49f955b8fa0775de45d5ab41d8ed9f5 (patch) | |
| tree | e72ea456002fa743f35d3b2b974820d936d4981d | |
| parent | e2c7dbbf98bfd1b73fa3067d92f2924a135f287a (diff) | |
| download | guix-5a135cc0f49f955b8fa0775de45d5ab41d8ed9f5.tar guix-5a135cc0f49f955b8fa0775de45d5ab41d8ed9f5.tar.gz | |
lint: Add a requires-store? field to the checker record.
This can then be used to mark checkers that require a store connection, which
will enable passing a connection in, avoiding the overhead of establishing a
connection inside the check function when it's run for lots of different
packages.
* guix/lint.scm (<lint-checker>): Add requires-store? to the record type.
| -rw-r--r-- | guix/lint.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 24fbf05202..2a084382c6 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -100,7 +100,8 @@ lint-checker? lint-checker-name lint-checker-description - lint-checker-check)) + lint-checker-check + lint-checker-requires-store?)) ;;; @@ -155,7 +156,9 @@ ;; 'certainty' level. (name lint-checker-name) (description lint-checker-description) - (check lint-checker-check)) + (check lint-checker-check) + (requires-store? lint-checker-requires-store? + (default #f))) (define (properly-starts-sentence? s) (string-match "^[(\"'`[:upper:][:digit:]]" s)) |