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

Fix types for lint warnings data

Browse source
This commit is contained in:
Christopher Baines 2025-11-05 08:35:18 +00:00
parent 9eb1fa079c
commit 0113843a72
1 changed files with 52 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

63
guix-data-service/model/lint-warning.scm
View file

@ -135,14 +135,40 @@ INNER JOIN lint_warning_messages
ELSE 0 ELSE 0
END DESC")) END DESC"))
(exec-query conn query `(,commit-hash (map
,locale (match-lambda
,@(if package-query ((lint_warning_id
(list package-query) lint_checker_name
'()) translated_lint_checker_description
,@(if message-query translated_lint_checker_description_locale
(list message-query) lint_checker_network_dependent
'())))) package_name
package_version
location_file
location_line
location_column_number
lint_warning_message
lint_warning_message_locale)
(list lint_warning_id
lint_checker_name
translated_lint_checker_description
translated_lint_checker_description_locale
(string=? "t" lint_checker_network_dependent)
package_name
package_version
location_file
(string->number location_line)
(string->number location_column_number)
lint_warning_message
lint_warning_message_locale)))
(exec-query conn query `(,commit-hash
,locale
,@(if package-query
(list package-query)
'())
,@(if message-query
(list message-query)
'())))))
(define* (select-lint-warnings-by-revision-package-name-and-version conn (define* (select-lint-warnings-by-revision-package-name-and-version conn
commit-hash commit-hash
@ -207,9 +233,24 @@ WHERE packages.id IN (
END DESC END DESC
") ")
(exec-query conn (map
query (match-lambda
(list commit-hash name version locale))) ((lint_warning_id
lint_checkers_name translated_lint_checker_description
lint_checkers_network_dependent
location_file location_line location_column_number
lint_warning_message)
(list lint_warning_id
lint_checkers_name
translated_lint_checker_description
(string=? "t" lint_checkers_network_dependent)
location_file
(string->number location_line)
(string->number location_column_number)
lint_warning_message)))
(exec-query conn
query
(list commit-hash name version locale))))
(define (any-translated-lint-warnings? lint-warnings-data locale) (define (any-translated-lint-warnings? lint-warnings-data locale)
(any (any