@@ -100,7 +100,7 @@ let link_and_optimize
100100 then Some (Filename. temp_file " wasm-merged" " .wasm.map" )
101101 else None )
102102 @@ fun opt_temp_sourcemap ->
103- Wa_binaryen . link
103+ Binaryen . link
104104 ~runtime_files: (runtime_file :: runtime_wasm_files)
105105 ~input_files: wat_files
106106 ~opt_output_sourcemap: opt_temp_sourcemap
@@ -112,14 +112,14 @@ let link_and_optimize
112112 (if enable_source_maps then Some (Filename. temp_file " wasm-dce" " .wasm.map" ) else None )
113113 @@ fun opt_temp_sourcemap' ->
114114 let primitives =
115- Wa_binaryen . dead_code_elimination
115+ Binaryen . dead_code_elimination
116116 ~dependencies: Wa_runtime. dependencies
117117 ~opt_input_sourcemap: opt_temp_sourcemap
118118 ~opt_output_sourcemap: opt_temp_sourcemap'
119119 ~input_file: temp_file
120120 ~output_file: temp_file'
121121 in
122- Wa_binaryen . optimize
122+ Binaryen . optimize
123123 ~profile
124124 ~opt_input_sourcemap: opt_temp_sourcemap'
125125 ~opt_output_sourcemap: opt_sourcemap
@@ -136,12 +136,12 @@ let link_runtime ~profile runtime_wasm_files output_file =
136136 Fs. write_file ~name: runtime_file ~contents: Wa_runtime. wasm_runtime;
137137 Fs. with_intermediate_file (Filename. temp_file " wasm-merged" " .wasm" )
138138 @@ fun temp_file ->
139- Wa_binaryen . link
139+ Binaryen . link
140140 ~opt_output_sourcemap: None
141141 ~runtime_files: (runtime_file :: runtime_wasm_files)
142142 ~input_files: []
143143 ~output_file: temp_file;
144- Wa_binaryen . optimize
144+ Binaryen . optimize
145145 ~profile
146146 ~opt_input_sourcemap: None
147147 ~opt_output_sourcemap: None
@@ -181,7 +181,7 @@ let build_prelude z =
181181 Fs. with_intermediate_file (Filename. temp_file " prelude_file" " .wasm" )
182182 @@ fun tmp_prelude_file ->
183183 let predefined_exceptions = generate_prelude ~out_file: prelude_file in
184- Wa_binaryen . optimize
184+ Binaryen . optimize
185185 ~profile: (Driver. profile 1 )
186186 ~input_file: prelude_file
187187 ~output_file: tmp_prelude_file
@@ -399,7 +399,7 @@ let run
399399 let strings, fragments =
400400 output_gen wat_file (output code ~unit_name: (Some unit_name))
401401 in
402- Wa_binaryen . optimize
402+ Binaryen . optimize
403403 ~profile
404404 ~opt_input_sourcemap: None
405405 ~opt_output_sourcemap: opt_tmp_map_file
@@ -515,10 +515,10 @@ let run
515515 else None )
516516 @@ fun opt_output_sourcemap_file ->
517517 let l = List. rev l in
518- Wa_wasm_link . f
518+ Wasm_link . f
519519 (List. map
520520 ~f: (fun (_ , _ , file , opt_source_map ) ->
521- { Wa_wasm_link . module_name = " OCaml"
521+ { Wasm_link . module_name = " OCaml"
522522 ; file
523523 ; code = None
524524 ; opt_source_map = Option. map ~f: (fun f -> `File f) opt_source_map
0 commit comments