branch master updated: Include lint warnings in the JSON /compare response

[Christopher Baines]

This is an automated email from the git hooks/post-receive script.

cbaines pushed a commit to branch master
in repository data-service.

The following commit(s) were added to refs/heads/master by this push:
     new 1043b51  Include lint warnings in the JSON /compare response
1043b51 is described below

commit 1043b51bff6beb8760f33489890ac972e95a15b1
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Aug 22 17:42:37 2022 +0100

    Include lint warnings in the JSON /compare response
---
 guix-data-service/web/compare/controller.scm | 36 +++++++++++++++++++++++++++-
 1 file changed, 35 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/compare/controller.scm 
b/guix-data-service/web/compare/controller.scm
index bbc9829..b0ae639 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -357,7 +357,41 @@
                                             ((name data ...)
                                              `((name . ,name)
                                                ,@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))
                 (else
                  (letpar& ((lint-warnings-locale-options