diff options
Diffstat (limited to 'otherlibs/labltk/browser/main.ml')
| -rw-r--r-- | otherlibs/labltk/browser/main.ml | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/otherlibs/labltk/browser/main.ml b/otherlibs/labltk/browser/main.ml index e59d65781..5caf9d564 100644 --- a/otherlibs/labltk/browser/main.ml +++ b/otherlibs/labltk/browser/main.ml @@ -20,20 +20,20 @@ let _ = Arg.parse keywords:[ "-I", Arg.String (fun s -> path := s :: !path), "<dir> Add <dir> to the list of include directories"; - "-modern", Arg.Unit (fun () -> Clflags.classic := false), - "Use strict label syntax"; - "-w", Arg.String (fun s -> Shell.warnings := s), + "-modern", Arg.Unit (fun () -> Clflags.classic := false), + "Use strict label syntax"; + "-w", Arg.String (fun s -> Shell.warnings := s), "<flags> Enable or disable warnings according to <flags>:\n\ - \032 A/a enable/disable all warnings\n\ - \032 C/c enable/disable suspicious comment\n\ - \032 F/f enable/disable partially applied function\n\ - \032 M/m enable/disable overriden method\n\ - \032 P/p enable/disable partial match\n\ - \032 S/s enable/disable non-unit statement\n\ - \032 U/u enable/disable unused match case\n\ - \032 V/v enable/disable hidden instance variable\n\ - \032 X/x enable/disable all other warnings\n\ - \032 default setting is A (all warnings enabled)" ] + \032 A/a enable/disable all warnings\n\ + \032 C/c enable/disable suspicious comment\n\ + \032 F/f enable/disable partially applied function\n\ + \032 M/m enable/disable overriden method\n\ + \032 P/p enable/disable partial match\n\ + \032 S/s enable/disable non-unit statement\n\ + \032 U/u enable/disable unused match case\n\ + \032 V/v enable/disable hidden instance variable\n\ + \032 X/x enable/disable all other warnings\n\ + \032 default setting is A (all warnings enabled)" ] others:(fun name -> raise(Arg.Bad("don't know what to do with " ^ name))) errmsg:"ocamlbrowser :"; Config.load_path := List.rev !path @ [Config.standard_library]; |