From f6ffcb5f024a3da7eb2e645750c943bf98cbb761 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 20 Jun 2019 14:42:38 +0200
Subject: [PATCH] Remove the revision labels from the links

As that seems neater.
---
 guix-data-service/web/view/html.scm | 94 ++++++++++++++---------------
 1 file changed, 47 insertions(+), 47 deletions(-)

diff --git a/guix-data-service/web/view/html.scm b/guix-data-service/web/view/html.scm
index 4f8eed2..6e28837 100644
--- a/guix-data-service/web/view/html.scm
+++ b/guix-data-service/web/view/html.scm
@@ -262,19 +262,19 @@
                                    branches))
                                (td (a (@ (href ,(string-append
                                                  "/revision/" commit)))
-                                      (samp ,commit)
-                                      " "
-                                      ,(cond
-                                        ((not (string-null? id))
-                                         '(span
-                                           (@ (class "label label-success"))
-                                           "✓"))
-                                        ((member "failure" job-events)
-                                         '(span (@ (class "label label-danger"))
-                                                "Failed to import data"))
-                                        (else
-                                         '(span (@ (class "label label-default"))
-                                                "No information yet"))))))))
+                                      (samp ,commit))
+                                   " "
+                                   ,(cond
+                                     ((not (string-null? id))
+                                      '(span
+                                        (@ (class "label label-success"))
+                                        "✓"))
+                                     ((member "failure" job-events)
+                                      '(span (@ (class "label label-danger"))
+                                             "Failed to import data"))
+                                     (else
+                                      '(span (@ (class "label label-default"))
+                                             "No information yet")))))))
                           revisions))))))))
          git-repositories-and-revisions)))))
 
@@ -659,23 +659,23 @@
                    (a (@ (href ,(string-append "/branch/" name)))
                       ,name))
                   (td ,date)
-                  (td ,(if (string=? commit "NULL")
-                           '(samp "branch deleted")
-                           `(a (@ (href ,(string-append
-                                          "/revision/" commit)))
-                               (samp ,commit)
-                               " "
-                               ,(cond
-                                 (revision-exists?
-                                  '(span
-                                    (@ (class "label label-success"))
-                                    "✓"))
-                                 ((member "failure" job-events)
-                                  '(span (@ (class "label label-danger"))
-                                         "Failed to import data"))
-                                 (else
-                                  '(span (@ (class "label label-default"))
-                                         "No information yet")))))))))
+                  (td ,@(if (string=? commit "NULL")
+                            '((samp "branch deleted"))
+                            `((a (@ (href ,(string-append
+                                            "/revision/" commit)))
+                                 (samp ,commit))
+                              " "
+                              ,(cond
+                                (revision-exists?
+                                 '(span
+                                   (@ (class "label label-success"))
+                                   "✓"))
+                                ((member "failure" job-events)
+                                 '(span (@ (class "label label-danger"))
+                                        "Failed to import data"))
+                                (else
+                                 '(span (@ (class "label label-default"))
+                                        "No information yet")))))))))
              branches-with-most-recent-commits)))))))))
 
 (define (view-branch branch-name query-parameters
@@ -739,23 +739,23 @@
                ((commit date revision-exists? job-events)
                 `(tr
                   (td ,date)
-                  (td ,(if (string=? commit "NULL")
-                           '(samp "branch deleted")
-                           `(a (@ (href ,(string-append
-                                          "/revision/" commit)))
-                               (samp ,commit)
-                               " "
-                               ,(cond
-                                 (revision-exists?
-                                  '(span
-                                    (@ (class "label label-success"))
-                                    "✓"))
-                                 ((member "failure" job-events)
-                                  '(span (@ (class "label label-danger"))
-                                         "Failed to import data"))
-                                 (else
-                                  '(span (@ (class "label label-default"))
-                                         "No information yet")))))))))
+                  (td ,@(if (string=? commit "NULL")
+                            '((samp "branch deleted"))
+                            `((a (@ (href ,(string-append
+                                            "/revision/" commit)))
+                                 (samp ,commit))
+                              " "
+                              ,(cond
+                                (revision-exists?
+                                 '(span
+                                   (@ (class "label label-success"))
+                                   "✓"))
+                                ((member "failure" job-events)
+                                 '(span (@ (class "label label-danger"))
+                                        "Failed to import data"))
+                                (else
+                                 '(span (@ (class "label label-default"))
+                                        "No information yet")))))))))
              branch-commits)))))))))
 
 (define (view-builds stats builds)