Link to the build pages from the derivation page

guix-data-service/model/build.scm

@@ -129,7 +129,8 @@ LIMIT 100"))
          conn derivation-file-name)
   (define query
     "
-SELECT build_servers.url,
+SELECT build_servers.id,
+       build_servers.url,
        latest_build_status.timestamp,
        latest_build_status.status
 FROM builds

guix-data-service/web/view/html.scm

@@ -581,10 +581,16 @@
                  ,(build-status-span "")))
               (map
                (match-lambda
-                 ((build-server-url timestamp status)
+                 ((build-server-id build-server-url timestamp status)
                   `(div
                     (@ (class "text-center"))
-                    (div ,(build-status-span status))
+                    (div
+                     (a (@ (href
+                            ,(simple-format
+                              #f "/build-server/~A/build?derivation_file_name=~A"
+                              build-server-id
+                              (second derivation))))
+                        ,(build-status-span status)))
                     (a (@ (style "display: inline-block; margin-top: 0.4em;")
                           (href ,(simple-format
                                   #f "~Abuild/~A"