jon.recoil.org
this repo has no description
Formatting
+20
-14
+7
-3
src/driver/odoc_driver.ml
+7
-3
src/driver/odoc_driver.ml
···
149
let all = Voodoo.of_voodoo p ~blessed in
150
let extra_paths = Voodoo.extra_paths odoc_dir in
151
(all, extra_paths, actions)
152
-
| Dune { path } -> (Dune_style.of_dune_build path, Voodoo.empty_extra_paths, All)
153
| OpamLibs { libs } ->
154
( Packages.of_libs ~packages_dir:None (Util.StringSet.of_list libs),
155
-
Voodoo.empty_extra_paths, All )
156
| OpamPackages { packages } ->
157
-
(Packages.of_packages ~packages_dir:None packages, Voodoo.empty_extra_paths, All)
158
in
159
160
let virtual_check =
···
149
let all = Voodoo.of_voodoo p ~blessed in
150
let extra_paths = Voodoo.extra_paths odoc_dir in
151
(all, extra_paths, actions)
152
+
| Dune { path } ->
153
+
(Dune_style.of_dune_build path, Voodoo.empty_extra_paths, All)
154
| OpamLibs { libs } ->
155
( Packages.of_libs ~packages_dir:None (Util.StringSet.of_list libs),
156
+
Voodoo.empty_extra_paths,
157
+
All )
158
| OpamPackages { packages } ->
159
+
( Packages.of_packages ~packages_dir:None packages,
160
+
Voodoo.empty_extra_paths,
161
+
All )
162
in
163
164
let virtual_check =
+8
-10
src/driver/odoc_units_of.ml
+8
-10
src/driver/odoc_units_of.ml
···
87
{ pkg_args; output_file; json = false; search_dir = pkg.pkg_dir }
88
in
89
90
-
let make_unit ~name ~kind ~rel_dir ~input_file ~pkg ~lib_deps
91
-
~enable_warnings : _ unit =
92
let ( // ) = Fpath.( // ) in
93
let ( / ) = Fpath.( / ) in
94
let pkg_args = args_of pkg lib_deps in
···
141
kind
142
in
143
let name = intf.mif_path |> Fpath.rem_ext |> Fpath.basename in
144
-
make_unit ~name ~kind ~rel_dir ~input_file:intf.mif_path ~pkg
145
-
146
-
~lib_deps ~enable_warnings:pkg.enable_warnings
147
in
148
match Hashtbl.find_opt intf_cache intf.mif_hash with
149
| Some unit -> unit
···
171
in
172
let unit =
173
make_unit ~name ~kind ~rel_dir ~input_file:impl.mip_path ~pkg
174
-
175
-
~lib_deps ~enable_warnings:pkg.enable_warnings
176
in
177
Some unit
178
in
···
203
|> Util.StringSet.of_list
204
in
205
let unit =
206
-
make_unit ~name ~kind ~rel_dir ~input_file:mld_path ~pkg
207
-
~lib_deps ~enable_warnings:pkg.enable_warnings
208
in
209
[ unit ]
210
in
···
235
let kind = `Asset in
236
let unit =
237
let name = asset_path |> Fpath.basename |> ( ^ ) "asset-" in
238
-
make_unit ~name ~kind ~rel_dir ~input_file:asset_path ~pkg
239
~lib_deps:Util.StringSet.empty ~enable_warnings:false
240
in
241
[ unit ]
···
87
{ pkg_args; output_file; json = false; search_dir = pkg.pkg_dir }
88
in
89
90
+
let make_unit ~name ~kind ~rel_dir ~input_file ~pkg ~lib_deps ~enable_warnings
91
+
: _ unit =
92
let ( // ) = Fpath.( // ) in
93
let ( / ) = Fpath.( / ) in
94
let pkg_args = args_of pkg lib_deps in
···
141
kind
142
in
143
let name = intf.mif_path |> Fpath.rem_ext |> Fpath.basename in
144
+
make_unit ~name ~kind ~rel_dir ~input_file:intf.mif_path ~pkg ~lib_deps
145
+
~enable_warnings:pkg.enable_warnings
146
in
147
match Hashtbl.find_opt intf_cache intf.mif_hash with
148
| Some unit -> unit
···
170
in
171
let unit =
172
make_unit ~name ~kind ~rel_dir ~input_file:impl.mip_path ~pkg
173
+
~lib_deps ~enable_warnings:pkg.enable_warnings
174
in
175
Some unit
176
in
···
201
|> Util.StringSet.of_list
202
in
203
let unit =
204
+
make_unit ~name ~kind ~rel_dir ~input_file:mld_path ~pkg ~lib_deps
205
+
~enable_warnings:pkg.enable_warnings
206
in
207
[ unit ]
208
in
···
233
let kind = `Asset in
234
let unit =
235
let name = asset_path |> Fpath.basename |> ( ^ ) "asset-" in
236
+
make_unit ~name ~kind ~rel_dir ~input_file:asset_path ~pkg
237
~lib_deps:Util.StringSet.empty ~enable_warnings:false
238
in
239
[ unit ]
+5
-1
src/driver/sherlodoc.ml
+5
-1
src/driver/sherlodoc.ml