From 8019d2e6878908f40cb6b047f60d2e4fd3c6712e Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 5 Oct 2019 11:11:22 +0100
Subject: Add "No lint warning changes" message to compare page

---
 guix-data-service/web/view/html.scm | 71 +++++++++++++++++++------------------
 1 file changed, 37 insertions(+), 34 deletions(-)

diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 3005af6..1a4c984 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -1789,41 +1789,44 @@
        (div
         (@ (class "col-sm-12"))
         (h2 "Lint warnings")
-        ,@(map
-           (match-lambda
-             (((package-name package-version) . warnings)
-              `((h4 ,package-name " (version: " ,package-version ")")
-                (table
-                 (@ (class "table"))
-                 (thead
-                  (tr
-                   (th "")
-                   (th "Linter")
-                   (th "Message")))
-                 (tbody
-                  ,@(map (match-lambda
-                           ((lint-checker-name
-                             message
-                             lint-checker-description
-                             lint-checker-network-dependent
-                             file line column-number ;; TODO Maybe use the location?
-                             change)
+        ,@(if
+           (null? lint-warnings-data)
+           '((p "No lint warning changes"))
+           (map
+            (match-lambda
+              (((package-name package-version) . warnings)
+               `((h4 ,package-name " (version: " ,package-version ")")
+                 (table
+                  (@ (class "table"))
+                  (thead
+                   (tr
+                    (th "")
+                    (th "Linter")
+                    (th "Message")))
+                  (tbody
+                   ,@(map (match-lambda
+                            ((lint-checker-name
+                              message
+                              lint-checker-description
+                              lint-checker-network-dependent
+                              file line column-number ;; TODO Maybe use the location?
+                              change)
 
-                            `(tr
-                              (td (@ (class ,(if (string=? change "new")
-                                                 "text-danger"
-                                                 "text-success"))
-                                     (style "font-weight: bold"))
-                                  ,(if (string=? change "new")
-                                       "New warning"
-                                       "Resolved warning"))
-                              (td (span (@ (style "font-family: monospace; display: block;"))
-                                        ,lint-checker-name)
-                                  (p (@ (style "font-size: small; margin: 6px 0 0px;"))
-                                     ,lint-checker-description))
-                              (td ,message))))
-                         warnings))))))
-           lint-warnings-data)))))))
+                             `(tr
+                               (td (@ (class ,(if (string=? change "new")
+                                                  "text-danger"
+                                                  "text-success"))
+                                      (style "font-weight: bold"))
+                                   ,(if (string=? change "new")
+                                        "New warning"
+                                        "Resolved warning"))
+                               (td (span (@ (style "font-family: monospace; display: block;"))
+                                         ,lint-checker-name)
+                                   (p (@ (style "font-size: small; margin: 6px 0 0px;"))
+                                      ,lint-checker-description))
+                               (td ,message))))
+                          warnings))))))
+            lint-warnings-data))))))))
 
 (define (compare/derivations query-parameters
                              valid-systems
-- 
cgit v1.2.3