quotation around keys

Author: zth

jscomp/core/js_dump_import_export.ml

@@ -132,7 +132,7 @@ let dumpImportAttributes f (importAttributes : External_ffi_types.import_attribu
     P.brace_group f 0 (
       fun _ -> 
         importAttributes |> Hashtbl.iter(fun key value ->
-          P.string f key;
+          Js_dump_string.pp_string f key;
           P.string f L.colon_space;
           Js_dump_string.pp_string f value;
           let shouldAddComma = !idx < total in

jscomp/test/ImportAttributes.mjs

@@ -1,6 +1,6 @@
 // Generated by ReScript, PLEASE EDIT WITH CARE
 
-import MyJsonJson from "./myJson.json" with {type: "json"};
+import MyJsonJson from "./myJson.json" with {"type": "json", "some-identifier": "yep"};
 
 var myJson = MyJsonJson;
 

jscomp/test/ImportAttributes.res

@@ -1,6 +1,6 @@
 @@config({flags: ["-bs-package-output", "es6:jscomp/test:.mjs"]})
 
-@module({from: "./myJson.json", with: {type_: "json"}})
+@module({from: "./myJson.json", with: {type_: "json", \"some-identifier": "yep"}})
 external myJson: Js.Json.t = "default"
 
 Js.log(myJson)