jon.recoil.org
this repo has no description
Formatting
+10
-11
+5
-5
src/driver/bin/odoc_driver_voodoo.ml
+5
-5
src/driver/bin/odoc_driver_voodoo.ml
···
58
58
let all, extra_paths, actions, generate_json, occurrence_file =
59
59
let pkg =
60
60
let pkg_opt = Voodoo.find_pkg package_name ~blessed in
61
-
match pkg_opt with
62
-
| Some pkg -> pkg
63
-
| None -> exit 1
61
+
match pkg_opt with Some pkg -> pkg | None -> exit 1
64
62
in
65
63
let all = Voodoo.of_voodoo pkg in
66
64
let occurrence_file =
···
70
68
(all, extra_paths, actions, true, occurrence_file)
71
69
in
72
70
73
-
let all = Packages.remap_virtual [all] in
71
+
let all = Packages.remap_virtual [ all ] in
74
72
75
73
let partial =
76
74
match all with
···
102
100
Compile.link ~warnings_tags:[ package_name ] ~custom_layout:false
103
101
compiled
104
102
in
105
-
let () = Odoc.count_occurrences ~input:[ odoc_dir ] ~output:occurrence_file in
103
+
let () =
104
+
Odoc.count_occurrences ~input:[ odoc_dir ] ~output:occurrence_file
105
+
in
106
106
let () =
107
107
Compile.html_generate ~occurrence_file ~remaps:[] ~generate_json
108
108
~simplified_search_output:true html_dir linked
+1
-2
src/driver/voodoo.ml
+1
-2
src/driver/voodoo.ml
+4
-4
src/driver/voodoo.mli
+4
-4
src/driver/voodoo.mli
···
4
4
type pkg
5
5
6
6
val find_pkg : string -> blessed:bool -> pkg option
7
-
(** [get_pkg name ~blessed] looks for a package named [name] in the
8
-
prep directory *)
7
+
(** [get_pkg name ~blessed] looks for a package named [name] in the prep
8
+
directory *)
9
9
10
10
val of_voodoo : pkg -> Packages.t
11
11
12
12
val occurrence_file_of_pkg : pkg -> Fpath.t
13
-
(** [occurrences_file_of_pkg pkg odoc_dir] returns an appropriate filename
14
-
for the occurrences file for [pkg]. *)
13
+
(** [occurrences_file_of_pkg pkg odoc_dir] returns an appropriate filename for
14
+
the occurrences file for [pkg]. *)
15
15
16
16
type extra_paths = {
17
17
pkgs : Fpath.t Util.StringMap.t;