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

Include lint warnings in the JSON /compare response

Browse source
This commit is contained in:
Christopher Baines 2022-08-22 17:42:37 +01:00
parent ee73d2cc98
commit 1043b51bff
1 changed files with 35 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

36
guix-data-service/web/compare/controller.scm
View file

@ -357,7 +357,41 @@
((name data ...) ((name data ...)
`((name . ,name) `((name . ,name)
,@data))) ,@data)))
version-changes)))) version-changes)))
(lint_warnings
. ,(list->vector
(map
(match-lambda
(((package-name package-version)
. warnings)
`((package
. ((name . ,package-name)
(version . ,package-version)))
(warnings
. ,(list->vector
(map
(match-lambda
((lint-checker-name
message
lint-checker-description
lint-checker-network-dependent
file line column-number
change)
`((change . ,change)
(checker
. ((name . ,lint-checker-name)
(description
. ,lint-checker-description)))
(message . ,message)
(location
. ((file . ,file)
(line . ,(string->number line))
(column . ,(string->number
column-number)))))))
warnings))))))
lint-warnings-data))))
#:extra-headers http-headers-for-unchanging-content)) #:extra-headers http-headers-for-unchanging-content))
(else (else
(letpar& ((lint-warnings-locale-options (letpar& ((lint-warnings-locale-options