cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Support skipping lint warnings

Browse source
This commit is contained in:
Christopher Baines 2026-02-12 10:54:35 +00:00
parent a7d9e15f65
commit 2eb699cf49
4 changed files with 23 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/jobs.scm
View file

@ -142,6 +142,7 @@ WHERE load_new_guix_revision_jobs.id = $1"
(define* (process-jobs conn #:key max-processes
latest-branch-revision-max-processes
skip-system-tests?
skip-lint-warnings?
extra-inferior-environment-variables
per-job-parallelism
ignore-systems
@ -171,6 +172,9 @@ WHERE load_new_guix_revision_jobs.id = $1"
,@(if skip-system-tests?
'("--skip-system-tests")
'())
,@(if skip-lint-warnings?
'("--skip-lint-warnings")
'())
,@(map (match-lambda
((key . val)
(simple-format #f "--inferior-set-environment-variable=~A=~A"

11
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -2998,6 +2998,7 @@ WHERE builder != 'builtin:download'
call-with-utility-thread
read-derivations/serialised
#:key skip-system-tests?
skip-lint-warnings?
extra-inferior-environment-variables
parallelism
ignore-systems ignore-targets
@ -3487,8 +3488,9 @@ WHERE builder != 'builtin:download'
(extract-and-store-channel-news)
(extract-and-store-package-derivations)
(retry-on-missing-store-item extract-and-store-system-tests)
(unless skip-lint-warnings?
(with-time-logging "extract-and-store-lint-checkers-and-warnings"
(extract-and-store-lint-checkers-and-warnings))))
(extract-and-store-lint-checkers-and-warnings)))))
(close-table-manager table-manager-coordinator
"systems")
@ -3636,7 +3638,8 @@ WHERE builder != 'builtin:download'
channel-news-entry-ids)))
(define* (load-new-guix-revision conn git-repository-id commit
#:key skip-system-tests? parallelism
#:key skip-system-tests?
skip-lint-warnings? parallelism
extra-inferior-environment-variables
ignore-systems ignore-targets
inferior-memory-limit)
@ -3810,6 +3813,8 @@ WHERE builder != 'builtin:download'
read-derivations/serialised
#:skip-system-tests?
skip-system-tests?
#:skip-lint-warnings?
skip-lint-warnings?
#:extra-inferior-environment-variables
extra-inferior-environment-variables
#:ignore-systems ignore-systems
@ -4240,6 +4245,7 @@ SKIP LOCKED")
(prevent-inlining-for-tests with-store-connection)
(define* (process-load-new-guix-revision-job id #:key skip-system-tests?
skip-lint-warnings?
extra-inferior-environment-variables
ignore-systems
ignore-targets
@ -4341,6 +4347,7 @@ SKIP LOCKED")
git-repository-id
commit
#:skip-system-tests? skip-system-tests?
#:skip-lint-warnings? skip-lint-warnings?
#:extra-inferior-environment-variables
extra-inferior-environment-variables
#:ignore-systems ignore-systems

4
scripts/guix-data-service-process-job.in
View file

@ -46,6 +46,9 @@
(list (option '("skip-system-tests") #f #f
(lambda (opt name _ result)
(alist-cons 'skip-system-tests #t result)))
(option '("skip-lint-warnings") #f #f
(lambda (opt name _ result)
(alist-cons 'skip-lint-warnings #t result)))
(option '("parallelism") #t #f
(lambda (opt name arg result)
(alist-cons 'parallelism
@ -116,6 +119,7 @@
(process-load-new-guix-revision-job
job
#:skip-system-tests? (assq-ref opts 'skip-system-tests)
#:skip-lint-warnings? (assq-ref opts 'skip-lint-warnings)
#:extra-inferior-environment-variables
(filter-map
(match-lambda

5
scripts/guix-data-service-process-jobs.in
View file

@ -47,6 +47,9 @@
(option '("skip-system-tests") #f #f
(lambda (opt name _ result)
(alist-cons 'skip-system-tests #t result)))
(option '("skip-lint-warnings") #f #f
(lambda (opt name _ result)
(alist-cons 'skip-lint-warnings #t result)))
(option '("per-job-parallelism") #t #f
(lambda (opt name arg result)
(alist-cons 'per-job-parallelism
@ -131,6 +134,8 @@
(* 2 (assq-ref opts 'max-processes)))
#:skip-system-tests?
(assq-ref opts 'skip-system-tests)
#:skip-lint-warnings?
(assq-ref opts 'skip-lint-warnings)
#:extra-inferior-environment-variables
(filter-map
(match-lambda