Skip to content

Commit 93f47f2

Browse files
committed
reuse g_dev_incls instead of via shadowing
1 parent aa91fd4 commit 93f47f2

File tree

4 files changed

+5
-25
lines changed

4 files changed

+5
-25
lines changed

jscomp/bsb/bsb_ninja_file_groups.ml

Lines changed: 3 additions & 11 deletions
Original file line numberDiff line numberDiff line change
@@ -49,24 +49,16 @@ let handle_generators oc
4949
let make_common_shadows
5050
package_specs
5151
dirname
52-
dir_index
5352
: Bsb_ninja_targets.shadow list
5453
=
5554

56-
{ key = Bsb_ninja_global_vars.g_pkg_flg;
55+
[{ key = Bsb_ninja_global_vars.g_pkg_flg;
5756
op =
5857
Append
5958
(Bsb_package_specs.package_flag_of_package_specs
6059
package_specs dirname
6160
)
62-
} ::
63-
(if Bsb_dir_index.is_lib_dir dir_index then [] else
64-
[
65-
{ key = Bsb_ninja_global_vars.g_dev_incls;
66-
op = OverwriteVar (Bsb_dir_index.bsc_dev_includes );
67-
}
68-
]
69-
)
61+
}]
7062

7163

7264

@@ -105,7 +97,7 @@ let emit_module_build
10597
let common_shadows =
10698
make_common_shadows package_specs
10799
(Filename.dirname output_cmi)
108-
group_dir_index in
100+
in
109101
let ast_rule =
110102
if is_re then
111103
rules.build_ast_from_re

jscomp/bsb/bsb_ninja_gen.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -185,7 +185,7 @@ let output_ninja_and_namespace_map
185185
Bsb_db_util.conflict_module_info k a (Map_string.find_exn lib k)
186186
) ;
187187
Bsb_ninja_targets.output_kv
188-
Bsb_dir_index.bsc_dev_includes
188+
Bsb_ninja_global_vars.g_dev_incls
189189
(Bsb_build_util.include_dirs source_dirs.(1)) oc
190190
;
191191
bs_groups,source_dirs.(0), static_resources

jscomp/ext/bsb_dir_index.ml

Lines changed: 1 addition & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -40,15 +40,6 @@ let get_dev_index ( ) = 1
4040

4141

4242

43-
(** bsb generate pre-defined variables [bsc_group_i_includes]
44-
for each rule, there is variable [bsc_extra_excludes]
45-
[g_dev_incls] are for app test etc
46-
it will be like
47-
{[
48-
g_dev_incls = ${bsc_group_1_includes}
49-
]}
50-
where [bsc_group_1_includes] will be pre-calcuated
51-
*)
52-
let bsc_dev_includes = "bsc_group_1_includes"
43+
5344

5445

jscomp/ext/bsb_dir_index.mli

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -37,6 +37,3 @@ val of_int : int -> t
3737

3838

3939

40-
41-
val bsc_dev_includes : string
42-

0 commit comments

Comments
 (0)