minor nits

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