have -v/-quiet etc in help as well

mirage · Nov 26, 2016 · 0ef60ee · 0ef60ee
1 parent 877924c
commit 0ef60ee
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app/functoria_command_line.ml b/app/functoria_command_line.ml
@@ -186,7 +186,7 @@ struct
       let doc = Arg.info [] ~docv:"TOPIC" ~doc:"The topic to get help on." in
       Arg.(value & pos 0 (some string) None & doc )
     in
-    let help man_format cmds topic _keys =
+    let help _log man_format cmds topic _keys =
       match topic with
       | None       -> `Help (`Pager, None)
       | Some topic ->
@@ -196,7 +196,7 @@ struct
         | `Ok t when t = "topics" -> List.iter print_endline cmds; `Ok ()
         | `Ok t -> `Help (man_format, Some t) in
     (Term.(const (fun () -> Help) $
-           ret (Term.(pure help $ Term.man_format $ Term.choice_names
+           ret (Term.(const help $ setup_log $ Term.man_format $ Term.choice_names
                       $ topic $ base_context))),
      Term.info "help"
        ~doc:"Display help about $(mname) commands."