Views: More syntax + separated out failed-builds footer in Builds

lib/views.ml

@@ -179,8 +179,7 @@ let artifact
       Fpath.pp filepath
   in
   [
-    H.a ~a:H.[a_href artifact_link]
-      [
+    H.a ~a:H.[a_href artifact_link] [
       if basename then H.txt (Fpath.basename filepath)
       else txtf "%a" Fpath.pp filepath
     ];
@@ -212,8 +211,7 @@ module Builds = struct
         H.txt ". Contact team@robur.coop if you have any questions or \
                suggestions.";
       ];
-      H.form ~a:H.[a_action "/hash"; a_method `Get]
-        [
+      H.form ~a:H.[a_action "/hash"; a_method `Get] [
         H.label [
           H.txt "Search artifact by SHA256";
           H.br ();
@@ -270,7 +268,8 @@ module Builds = struct
           H.txt (Option.value ~default:"" synopsis);
           H.br ()
         ]
-        @ List.concat_map (make_platform_builds ~job_name) platform_builds)
+        @ List.concat_map (make_platform_builds ~job_name) platform_builds
+      )
     )
 
   let make_body section_job_map =
@@ -282,16 +281,19 @@ module Builds = struct
     in
     Utils.String_map.fold aux section_job_map []
 
-  let make section_job_map =
-    layout ~title:"Reproducible OPAM builds"
-      (make_header
-       @ make_body section_job_map
-       @ [ H.p [
+  let make_failed_builds =
+    [ H.p [
         H.txt "View the latest failed builds ";
         H.a ~a:H.[a_href "/failed-builds/"]
           [H.txt "here"];
         H.txt "."
-       ]])
+      ]]
+
+  let make section_job_map =
+    layout ~title:"Reproducible OPAM builds"
+      (make_header
+       @ make_body section_job_map
+       @ make_failed_builds)
 
 end