Skip to content

Commit 954069d

Browse files
committed
remove unused bsc dev groups
1 parent 819f7dc commit 954069d

File tree

4 files changed

+4
-15
lines changed

4 files changed

+4
-15
lines changed

jscomp/bsb/bsb_ninja_file_groups.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -63,7 +63,7 @@ let make_common_shadows
6363
(if Bsb_dir_index.is_lib_dir dir_index then [] else
6464
[
6565
{ key = Bsb_ninja_global_vars.g_dev_incls;
66-
op = OverwriteVar (Bsb_dir_index.string_of_bsb_dev_include dir_index);
66+
op = OverwriteVar (Bsb_dir_index.bsc_dev_includes );
6767
}
6868
]
6969
)

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.(string_of_bsb_dev_include (of_int 1)))
188+
Bsb_dir_index.bsc_dev_includes
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 & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -49,17 +49,6 @@ let get_dev_index ( ) = 1
4949
]}
5050
where [bsc_group_1_includes] will be pre-calcuated
5151
*)
52-
let bsc_group_1_includes = "bsc_group_1_includes"
53-
let bsc_group_2_includes = "bsc_group_2_includes"
54-
let bsc_group_3_includes = "bsc_group_3_includes"
55-
let bsc_group_4_includes = "bsc_group_4_includes"
56-
let string_of_bsb_dev_include i =
57-
match i with
58-
| 1 -> bsc_group_1_includes
59-
| 2 -> bsc_group_2_includes
60-
| 3 -> bsc_group_3_includes
61-
| 4 -> bsc_group_4_includes
62-
| _ ->
63-
"bsc_group_" ^ string_of_int i ^ "_includes"
52+
let bsc_dev_includes = "bsc_group_1_includes"
6453

6554

jscomp/ext/bsb_dir_index.mli

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -38,5 +38,5 @@ val of_int : int -> t
3838

3939

4040

41-
val string_of_bsb_dev_include : t -> string
41+
val bsc_dev_includes : string
4242

0 commit comments

Comments
 (0)