[MINOR: update for OCaml 4.00.0. argot@x9c.fr**20120805064709 Ignore-this: 6f0a839f9c321c7bd243e4b8e57b1c3c ] hunk ./src/args.ml 28 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 34 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 38 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 42 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 46 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 50 - Odoc_info.Args.add_option + Odoc_args.add_option hunk ./src/args.ml 54 - hunk ./src/main.ml 23 -class argot_generator = object (self) +module Generator (G : Odoc_html.Html_generator) = struct +class html = object (self) hunk ./src/main.ml 26 - inherit Odoc_html.html as super + inherit Odoc_html.Generator.html as super hunk ./src/main.ml 190 - !Odoc_info.Args.target_dir - (self :> Odoc_html.html) + !Odoc_info.Global.target_dir + (self :> Odoc_html.Generator.html) hunk ./src/main.ml 228 +end hunk ./src/main.ml 231 - let generator = (new argot_generator :> Odoc_info.Args.doc_generator) in hunk ./src/main.ml 235 - Search.generate_html !Odoc_info.Args.target_dir; - Search_js.generate_files !Odoc_info.Args.target_dir + Search.generate_html !Odoc_info.Global.target_dir; + Search_js.generate_files !Odoc_info.Global.target_dir hunk ./src/main.ml 238 - Odoc_info.Args.set_doc_generator (Some generator) + Odoc_args.extend_html_generator (module Generator : Odoc_gen.Html_functor) hunk ./src/search.ml 294 - let title = match !Odoc_args.title with Some x -> x | None -> "Argot search" in + let title = match !Odoc_global.title with Some x -> x | None -> "Argot search" in hunk ./src/search.mli 21 -val generate_data : string -> Odoc_html.html -> unit +val generate_data : string -> Odoc_html.Generator.html -> unit hunk ./tests/fold/reference.html/A.html 12 -