forked from
jonmsterling.com/ocaml-forester
ocaml
refactor to reduce number of top-level bindings
+16
-13
+16
-13
bin/forester/main.ml
+16
-13
bin/forester/main.ml
···
11
11
open Cmdliner
12
12
module EP = Eio.Path
13
13
14
-
let setup_logs style_renderer level =
15
-
Fmt_tty.setup_std_outputs ?style_renderer ();
16
-
Logs.set_level level;
17
-
Logs.set_reporter (Logs_fmt.reporter ());
18
-
()
14
+
let arg_logs =
15
+
let setup_logs style_renderer level =
16
+
Fmt_tty.setup_std_outputs ?style_renderer ();
17
+
Logs.set_level level;
18
+
Logs.set_reporter (Logs_fmt.reporter ());
19
+
()
20
+
in
19
21
20
-
let verbosity =
21
-
let env = Cmd.Env.info "PART_LOGS" in
22
-
Logs_cli.level ~env ~docs:Manpage.s_common_options ()
23
-
24
-
let renderer =
25
-
let env = Cmd.Env.info "PART_FMT" in
26
-
Fmt_cli.style_renderer ~docs:Manpage.s_common_options ~env ()
22
+
let verbosity =
23
+
let env = Cmd.Env.info "PART_LOGS" in
24
+
Logs_cli.level ~env ~docs:Manpage.s_common_options ()
25
+
in
27
26
28
-
let arg_logs = Term.(const setup_logs $ renderer $ verbosity)
27
+
let renderer =
28
+
let env = Cmd.Env.info "PART_FMT" in
29
+
Fmt_cli.style_renderer ~docs:Manpage.s_common_options ~env ()
30
+
in
31
+
Term.(const setup_logs $ renderer $ verbosity)
29
32
30
33
let version =
31
34
let major =