fix refmt build

Author: bobzhang

jscomp/refmt/jsoo_refmt_main.ml

@@ -114,23 +114,23 @@ let compile ~use_super_errors ?react_ppx_version impl =
 let shake_compile ~prefix ~use_super_errors ?react_ppx_version impl =
    implementation ~prefix ~use_super_errors ?react_ppx_version impl
 
-let load_module cmi_path cmi_content cmj_name cmj_content =
+(* let load_module cmi_path cmi_content cmj_name cmj_content =
   Js.create_file cmi_path cmi_content;
   Js_cmj_datasets.data_sets :=
     Map_string.add !Js_cmj_datasets.data_sets
-      cmj_name (lazy (Js_cmj_format.from_string cmj_content))
+      cmj_name (lazy (Js_cmj_format.from_string cmj_content)) *)
 
 let export (field : string) v =
   Js.Unsafe.set (Js.Unsafe.global) field v
 ;;
 
 (* To add a directory to the load path *)
-
+(* 
 let dir_directory d =
   Config.load_path := d :: !Config.load_path
 
 let () =
-  dir_directory "/static/cmis"
+  dir_directory "/static/cmis" *)
 
 module Converter = Refmt_api.Migrate_parsetree.Convert(Refmt_api.Migrate_parsetree.OCaml_404)(Refmt_api.Migrate_parsetree.OCaml_406)
 
@@ -170,15 +170,15 @@ let make_compiler ~name ~prefix impl=
                     Js.wrap_meth_callback
                       (fun _ code -> (shake_compile impl ~use_super_errors:true ~prefix (Js.to_string code)));
                     "version", Js.Unsafe.inject (Js.string (match name with | "reason" -> Refmt_api.version | _ -> Bs_version.version));
-                    "load_module",
+                    (* "load_module",
                     inject @@
                     Js.wrap_meth_callback
                       (fun _ cmi_path cmi_content cmj_name cmj_content ->
                         let cmj_bytestring = Js.to_bytestring cmj_content in
                         (* HACK: force string tag to ASCII (9) to avoid
                          * UTF-8 encoding *)
                         Js.Unsafe.set cmj_bytestring "t" 9;
-                        load_module cmi_path cmi_content (Js.to_string cmj_name) cmj_bytestring);
+                        load_module cmi_path cmi_content (Js.to_string cmj_name) cmj_bytestring); *)
                   |]))
 
 let () = make_compiler ~name:"ocaml" ~prefix:"[@@@bs.config {no_export}]\n#1 \"repl.ml\"\n"  Parse.implementation

jscomp/snapshot.ninja

@@ -65,7 +65,7 @@ build $SNAP/unstable/js_compiler.ml: bspack | ./bin/bspack.exe
     main  = Jsoo_main
 
 build $SNAP/unstable/js_refmt_compiler.ml: bspack | ./bin/bspack.exe
-    flags = -D BS_BROWSER=true -D BS_RELEASE_BUILD=true -bs-MD  -module-alias Config=Config_whole_compiler  -bs-exclude-I config   -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I $OCAML_SRC_TYPING -I $OCAML_SRC_BYTECOMP -I $OCAML_SRC_DRIVER -I js_parser -I stubs -I ext -I syntax -I depends -I common -I core -I super_errors -I bsb -I outcome_printer -I main -I refmt
+    flags = -D BS_BROWSER=true -D BS_RELEASE_BUILD=true -bs-MD  -module-alias Config=Config_whole_compiler  -bs-exclude-I config   -I $OCAML_SRC_UTILS -I $OCAML_SRC_PARSING -I $OCAML_SRC_TYPING -I $OCAML_SRC_BYTECOMP -I $OCAML_SRC_DRIVER -I js_parser -I stubs -I ext -I syntax -I depends -I common -I core -I super_errors -I bsb -I outcome_printer -I js_parser -I main -I refmt
     main  = Jsoo_refmt_main
 # -o $@
 # Check it later 

lib/4.06.1/unstable/js_compiler.ml

@@ -356136,7 +356136,7 @@ end = struct
 
 (* Clflags.keep_docs := false; *)
 (* default to false -check later*)
-
+(* Clflags.keep_locs := false; *)
 let setup_env () =
 
   Env.Persistent_signature.load := Bs_cmi_load.browse_load;