robur/builder-web
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor nits

Browse source
This commit is contained in:
Hannes Mehnert 2022-04-11 16:26:58 +02:00
parent 68849fecf3
commit 1adc67c297
1 changed files with 5 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
bin/builder_web_app.ml
View file

@ -81,10 +81,7 @@ let init_influx name data =
let setup_app level influx port host datadir cachedir configdir = let setup_app level influx port host datadir cachedir configdir =
let dbpath = Printf.sprintf "%s/builder.sqlite3" datadir in let dbpath = Printf.sprintf "%s/builder.sqlite3" datadir in
let datadir = Fpath.v datadir in let datadir = Fpath.v datadir in
let cachedir = match cachedir with let cachedir = Option.fold ~none:Fpath.(datadir / "_cache") ~some:Fpath.v in
| Some c -> Fpath.v c
| None -> Fpath.(datadir / "_cache")
in
let configdir = Fpath.v configdir in let configdir = Fpath.v configdir in
let () = init_influx "builder-web" influx in let () = init_influx "builder-web" influx in
match Builder_web.init dbpath datadir with 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]") Arg.(value & opt (some ip_port) None & info [ "influx" ] ~doc ~docv:"INFLUXHOST[:PORT]")
let () = let () =
let term = Term.( let term =
const setup_app Term.(const setup_app $ Logs_cli.level () $ influx $ port $ host $ datadir $
$ Logs_cli.level () cachedir $ configdir)
$ influx in
$ port $ host
$ datadir $ cachedir $ configdir
) in
let info = Cmd.info "Builder web" ~doc:"Builder web" ~man:[] in let info = Cmd.info "Builder web" ~doc:"Builder web" ~man:[] in
Cmd.v info term Cmd.v info term
|> Cmd.eval |> Cmd.eval