+7 -3

src/driver/odoc_driver.ml

··· 149 149 let all = Voodoo.of_voodoo p ~blessed in 150 150 let extra_paths = Voodoo.extra_paths odoc_dir in 151 151 (all, extra_paths, actions) 152 152 - | Dune { path } -> (Dune_style.of_dune_build path, Voodoo.empty_extra_paths, All) 152 152 + | Dune { path } -> 153 153 + (Dune_style.of_dune_build path, Voodoo.empty_extra_paths, All) 153 154 | OpamLibs { libs } -> 154 155 ( Packages.of_libs ~packages_dir:None (Util.StringSet.of_list libs), 155 155 - Voodoo.empty_extra_paths, All ) 156 156 + Voodoo.empty_extra_paths, 157 157 + All ) 156 158 | OpamPackages { packages } -> 157 157 - (Packages.of_packages ~packages_dir:None packages, Voodoo.empty_extra_paths, All) 159 159 + ( Packages.of_packages ~packages_dir:None packages, 160 160 + Voodoo.empty_extra_paths, 161 161 + All ) 158 162 in 159 163 160 164 let virtual_check =

+8 -10

src/driver/odoc_units_of.ml

··· 87 87 { pkg_args; output_file; json = false; search_dir = pkg.pkg_dir } 88 88 in 89 89 90 90 - let make_unit ~name ~kind ~rel_dir ~input_file ~pkg ~lib_deps 91 91 - ~enable_warnings : _ unit = 90 90 + let make_unit ~name ~kind ~rel_dir ~input_file ~pkg ~lib_deps ~enable_warnings 91 91 + : _ unit = 92 92 let ( // ) = Fpath.( // ) in 93 93 let ( / ) = Fpath.( / ) in 94 94 let pkg_args = args_of pkg lib_deps in ··· 141 141 kind 142 142 in 143 143 let name = intf.mif_path |> Fpath.rem_ext |> Fpath.basename in 144 144 - make_unit ~name ~kind ~rel_dir ~input_file:intf.mif_path ~pkg 145 145 - 146 146 - ~lib_deps ~enable_warnings:pkg.enable_warnings 144 144 + make_unit ~name ~kind ~rel_dir ~input_file:intf.mif_path ~pkg ~lib_deps 145 145 + ~enable_warnings:pkg.enable_warnings 147 146 in 148 147 match Hashtbl.find_opt intf_cache intf.mif_hash with 149 148 | Some unit -> unit ··· 171 170 in 172 171 let unit = 173 172 make_unit ~name ~kind ~rel_dir ~input_file:impl.mip_path ~pkg 174 174 - 175 175 - ~lib_deps ~enable_warnings:pkg.enable_warnings 173 173 + ~lib_deps ~enable_warnings:pkg.enable_warnings 176 174 in 177 175 Some unit 178 176 in ··· 203 201 |> Util.StringSet.of_list 204 202 in 205 203 let unit = 206 206 - make_unit ~name ~kind ~rel_dir ~input_file:mld_path ~pkg 207 207 - ~lib_deps ~enable_warnings:pkg.enable_warnings 204 204 + make_unit ~name ~kind ~rel_dir ~input_file:mld_path ~pkg ~lib_deps 205 205 + ~enable_warnings:pkg.enable_warnings 208 206 in 209 207 [ unit ] 210 208 in ··· 235 233 let kind = `Asset in 236 234 let unit = 237 235 let name = asset_path |> Fpath.basename |> ( ^ ) "asset-" in 238 238 - make_unit ~name ~kind ~rel_dir ~input_file:asset_path ~pkg 236 236 + make_unit ~name ~kind ~rel_dir ~input_file:asset_path ~pkg 239 237 ~lib_deps:Util.StringSet.empty ~enable_warnings:false 240 238 in 241 239 [ unit ]

+5 -1

src/driver/sherlodoc.ml

··· 38 38 let js dst = 39 39 let cmd = Cmd.(sherlodoc % "js" % p dst) in 40 40 let desc = Printf.sprintf "Sherlodoc js at %s" (Fpath.to_string dst) in 41 41 - let _lines = submit_ignore_failures (Some (`Sherlodoc, Fpath.to_string dst)) desc cmd (Some dst) in 41 41 + let _lines = 42 42 + submit_ignore_failures 43 43 + (Some (`Sherlodoc, Fpath.to_string dst)) 44 44 + desc cmd (Some dst) 45 45 + in 42 46 ()