emit wasm files in same dir

OCamlPro · Aug 23, 2024 · fcc9ec0 · fcc9ec0
1 parent ab7b322
commit fcc9ec0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/ast/binary_encoder.ml b/src/ast/binary_encoder.ml
@@ -763,7 +763,8 @@ let write_file filename content =
   let _dir, filename = Fpath.split_base filename in
   let filename, _ext = Fpath.split_ext filename in
   let filename = Fpath.add_ext ".wasm" filename in
-  let filename = Fpath.to_string filename in
+  let fullpath = Fpath.add_seg _dir (Fpath.to_string filename) in
+  let filename = Fpath.to_string fullpath in
   let oc = Out_channel.open_bin filename in
   Out_channel.output_string oc content;
   Out_channel.close oc