diff options
Diffstat (limited to 'guix-data-service/jobs/load-new-guix-revision.scm')
-rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 32 |
1 files changed, 12 insertions, 20 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 57f5eb1..03a47fc 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -643,27 +643,19 @@ WHERE job_id = $1") ((name description network-dependent?) (cons (list name description network-dependent?) - (if network-dependent? + (if (or network-dependent? + (eq? name 'derivation)) '() - (with-time-logging (simple-format #f "getting ~A lint warnings" - name) - (let loop ((packages-chunks - (chunk packages 3000)) - (warnings '())) - - (if (null? packages-chunks) - warnings - (let ((new-warnings - (inferior-eval-with-store - inf - store - (lint-warnings-for-checker (car packages-chunks) - name)))) - - (cleanup-inferior inf) - (loop (cdr packages-chunks) - (append! warnings - new-warnings)))))))))) + (let ((warnings + (with-time-logging (simple-format #f "getting ~A lint warnings" + name) + (inferior-eval-with-store + inf + store + (lint-warnings-for-checker packages + name))))) + (cleanup-inferior inf) + warnings))))) checkers)))) (define (all-inferior-package-derivations store inf packages) |