From 3680336b221c7446387aaa684676c90daf2fcc90 Mon Sep 17 00:00:00 2001
From: rand00 <oth.rand@gmail.com>
Date: Thu, 3 Feb 2022 12:57:21 +0100
Subject: [PATCH] Views: Removed outcommented + fixed some 80-col problems

---
 lib/views.ml | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/lib/views.ml b/lib/views.ml
index 6a3d3f8..deae14b 100644
--- a/lib/views.ml
+++ b/lib/views.ml
@@ -337,7 +337,7 @@ module Job_build = struct
   let make_build_info
       ~name
       ~delta
-      ~(build:Builder_db.Build.t) (* ({ Builder_db.Build.uuid; start; finish; result; platform; _ } as build) *)
+      ~(build:Builder_db.Build.t)
       ~artifacts
       ~same_input_same_output
       ~different_input_same_output
@@ -351,11 +351,15 @@ module Job_build = struct
       H.p [txtf "Execution result: %a." Builder.pp_execution_result build.result];
       H.h3 [H.txt "Build info"];
       H.ul [
-        H.li [ H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/console" name Uuidm.pp build.uuid]
-          [H.txt "Console output"];
+        H.li [
+          H.a ~a:H.[
+            Fmt.kstr a_href "/job/%s/build/%a/console" name Uuidm.pp build.uuid
+          ] [H.txt "Console output"];
         ];
-        H.li [ H.a ~a:H.[Fmt.kstr a_href "/job/%s/build/%a/script" name Uuidm.pp build.uuid]
-          [H.txt "Build script"];
+        H.li [
+          H.a ~a:H.[
+            Fmt.kstr a_href "/job/%s/build/%a/script" name Uuidm.pp build.uuid
+          ] [H.txt "Build script"];
         ]
       ];
       H.h3 [H.txt "Build artifacts"];