diff options
Diffstat (limited to 'toplevel/workerLoop.ml')
| -rw-r--r-- | toplevel/workerLoop.ml | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/toplevel/workerLoop.ml b/toplevel/workerLoop.ml index 0087e4833c..3af48bad99 100644 --- a/toplevel/workerLoop.ml +++ b/toplevel/workerLoop.ml @@ -21,11 +21,13 @@ let worker_init init () ~opts = init (); Coqtop.init_toploop opts -let start ~init ~loop = +let start ~init ~loop name = + let _ = Usage.add_to_usage name "" ("\n" ^ name ^ " specific options:\ +\n --xml_format=Ppcmds serialize pretty printing messages using the std_ppcmds format\n") in let open Coqtop in let custom = { parse_extra = worker_parse_extra; - help = (fun _ -> output_string stderr "Same options as coqtop"); + help = Usage.print_usage name; opts = Coqargs.default; init = worker_init init; run = (fun () ~opts:_ _state (* why is state not used *) -> loop ()); |