forked from
jonmsterling.com/ocaml-forester
ocaml
forester new: don't automatically scan the destination dir
The problem is that this can lead to scanning the same tree twice.
+1
-7
+1
-7
bin/forester/main.ml
+1
-7
bin/forester/main.ml
···
29
29
30
30
let new_tree ~env input_dirs dest_dir prefix template random =
31
31
let cfg = Forest.{env; root = None; base_url = None; assets_dirs = []; max_fibers = 20; ignore_tex_cache = true; no_assets = true; no_theme = true;} in
32
-
let input_dirs =
33
-
make_dirs ~env @@
34
-
if List.mem dest_dir input_dirs then
35
-
input_dirs
36
-
else
37
-
dest_dir :: input_dirs
38
-
in
32
+
let input_dirs = make_dirs ~env @@ input_dirs in
39
33
let forest =
40
34
Forest.plant_forest @@
41
35
Process.read_trees_in_dirs ~dev:true ~ignore_malformed:true input_dirs