74
74
75
75
module BundleConfig = struct
76
76
type t = {
77
- mutable module_system : Js_packages_info .module_system ;
77
+ mutable module_system : Ext_module_system .t ;
78
78
mutable filename : string option ;
79
79
mutable warn_flags : string ;
80
80
mutable open_modules : string list ;
@@ -86,7 +86,7 @@ module BundleConfig = struct
86
86
}
87
87
88
88
let make () = {
89
- module_system= Js_packages_info. NodeJS ;
89
+ module_system= Ext_module_system. Commonjs ;
90
90
filename= None ;
91
91
warn_flags= Bsc_warnings. defaults_w;
92
92
open_modules= [] ;
@@ -97,8 +97,8 @@ module BundleConfig = struct
97
97
let default_filename (lang : Lang.t ) = " playground." ^ (Lang. toString lang)
98
98
99
99
let string_of_module_system m = (match m with
100
- | Js_packages_info. NodeJS -> " nodejs"
101
- | Es6 -> " es6"
100
+ | Ext_module_system. Commonjs -> " nodejs"
101
+ | Esmodule -> " es6"
102
102
| Es6_global -> " es6_global" )
103
103
end
104
104
@@ -608,10 +608,10 @@ module Export = struct
608
608
let config = BundleConfig. make () in
609
609
let set_module_system value =
610
610
match value with
611
- | "es6" ->
612
- config.module_system < - Js_packages_info. Es6 ; true
613
- | "nodejs" ->
614
- config.module_system < - NodeJS ; true
611
+ | "esmodule" | " es6" ->
612
+ config.module_system < - Ext_module_system. Esmodule ; true
613
+ | "commonjs" | " nodejs" ->
614
+ config.module_system < - Commonjs ; true
615
615
| _ -> false in
616
616
let set_filename value =
617
617
config.filename < - Some value; true
0 commit comments