From d6098cfa9164e45d97bd47722b74013f60d36a7d Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Thu, 24 Feb 2022 14:05:06 +0100
Subject: [PATCH] minor stylistic adjustments from reading git diff -w
 0afec16..6f3c89c

---
 README.md          |  4 ----
 lib/builder_web.ml | 11 ++++-------
 lib/dune           |  6 +-----
 3 files changed, 5 insertions(+), 16 deletions(-)

diff --git a/README.md b/README.md
index 7b599df..4e5ad28 100644
--- a/README.md
+++ b/README.md
@@ -58,7 +58,3 @@ see `builder-db user-add --help`):
 ```ocaml
 curl --data-binary @<build-hash>.full http://<user>:<passwd>@localhost:<builder-web-port>/upload
 ```
-
-
-
-
diff --git a/lib/builder_web.ml b/lib/builder_web.ml
index c98e06b..ca30950 100644
--- a/lib/builder_web.ml
+++ b/lib/builder_web.ml
@@ -4,8 +4,6 @@ module Log = (val Logs.src_log src : Logs.LOG)
 open Lwt.Syntax
 open Lwt_result.Infix
 
-let sprintf = Printf.sprintf
-
 let pp_error ppf = function
   | #Caqti_error.connect as e -> Caqti_error.pp ppf e
   | #Model.error as e -> Model.pp_error ppf e
@@ -147,8 +145,7 @@ let add_routes datadir configdir =
     |> if_error "Error getting job"
       ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e))
     >>= fun (readme, builds) ->
-    builds
-    |> Views.Job.make ~failed:false ~job_name ~platform ~readme
+    Views.Job.make ~failed:false ~job_name ~platform ~readme builds
     |> string_of_html |> Dream.html |> Lwt_result.ok
   in
 
@@ -161,8 +158,7 @@ let add_routes datadir configdir =
     |> if_error "Error getting job"
       ~log:(fun e -> Log.warn (fun m -> m "Error getting job: %a" pp_error e))
     >>= fun (readme, builds) ->
-    builds
-    |> Views.Job.make ~failed:true ~job_name ~platform ~readme
+    Views.Job.make ~failed:true ~job_name ~platform ~readme builds
     |> string_of_html |> Dream.html |> Lwt_result.ok
   in
 
@@ -334,7 +330,8 @@ let add_routes datadir configdir =
     |> if_error "Error getting data"
        ~log:(fun e -> Log.warn (fun m -> m "Error getting failed builds: %a"
                                   pp_error e)) >>= fun builds ->
-    Views.failed_builds ~start ~count builds |> string_of_html |> Dream.html |> Lwt_result.ok
+    Views.failed_builds ~start ~count builds
+    |> string_of_html |> Dream.html |> Lwt_result.ok
   in
 
   let job_build_tar req =
diff --git a/lib/dune b/lib/dune
index e553d12..55de30f 100644
--- a/lib/dune
+++ b/lib/dune
@@ -4,10 +4,6 @@
   builder builder_db
   dream tyxml bos duration hex caqti-lwt
   opamdiff ptime.clock.os omd tar
-  modulectomy
-  opam-graph
   owee
   solo5-elftool
-  )
- (flags (:standard))
- )
+  ))