From 1adc67c297fcea37348c8ae8691cfd8d2d1f5b40 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Mon, 11 Apr 2022 16:26:58 +0200
Subject: [PATCH] minor nits

---
 bin/builder_web_app.ml | 16 +++++-----------
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/bin/builder_web_app.ml b/bin/builder_web_app.ml
index d2dfcdc..9b61a3e 100644
--- a/bin/builder_web_app.ml
+++ b/bin/builder_web_app.ml
@@ -81,10 +81,7 @@ let init_influx name data =
 let setup_app level influx port host datadir cachedir configdir =
   let dbpath = Printf.sprintf "%s/builder.sqlite3" datadir in
   let datadir = Fpath.v datadir in
-  let cachedir = match cachedir with
-    | Some c -> Fpath.v c
-    | None -> Fpath.(datadir / "_cache")
-  in
+  let cachedir = Option.fold ~none:Fpath.(datadir / "_cache") ~some:Fpath.v in
   let configdir = Fpath.v configdir in
   let () = init_influx "builder-web" influx in
   match Builder_web.init dbpath datadir with
@@ -156,13 +153,10 @@ let influx =
   Arg.(value & opt (some ip_port) None & info [ "influx" ] ~doc ~docv:"INFLUXHOST[:PORT]")
 
 let () =
-  let term = Term.(
-      const setup_app
-      $ Logs_cli.level ()
-      $ influx
-      $ port $ host
-      $ datadir $ cachedir $ configdir
-    ) in
+  let term =
+    Term.(const setup_app $ Logs_cli.level () $ influx $ port $ host $ datadir $
+          cachedir $ configdir)
+  in
   let info = Cmd.info "Builder web" ~doc:"Builder web" ~man:[] in
   Cmd.v info term
   |> Cmd.eval