Update rescript.json

Author: nojaf

src/ExistingJsProject.res

@@ -20,7 +20,7 @@ let updatePackageJson = async () =>
     }
   )
 
-let updateRescriptJson = async (~projectName, ~sourceDir, ~moduleSystem, ~suffix) =>
+let updateRescriptJson = async (~projectName, ~sourceDir, ~moduleSystem, ~suffix, ~versions) =>
   await JsonUtils.updateJsonFile("rescript.json", json =>
     switch json {
     | Object(config) =>
@@ -34,6 +34,10 @@ let updateRescriptJson = async (~projectName, ~sourceDir, ~moduleSystem, ~suffix
       | Some(Object(sources)) => sources->Dict.set("module", String(moduleSystem))
       | _ => ()
       }
+
+      if Option.isNone(versions.RescriptVersions.rescriptCoreVersion) {
+        RescriptJsonUtils.removeRescriptCore(config)
+      }
     | _ => ()
     }
   )
@@ -98,7 +102,7 @@ let addToExistingProject = async (~projectName) => {
   }
 
   await updatePackageJson()
-  await updateRescriptJson(~projectName, ~sourceDir, ~moduleSystem, ~suffix)
+  await updateRescriptJson(~projectName, ~sourceDir, ~moduleSystem, ~suffix, ~versions)
 
   if !Fs.existsSync(sourceDirPath) {
     await Fs.Promises.mkdir(sourceDirPath)

src/NewProject.res

@@ -37,6 +37,10 @@ let updateRescriptJson = async (~projectName, ~versions) =>
         config->Dict.set("suffix", String(suffix))
       | _ => ()
       }
+
+      if Option.isNone(versions.rescriptCoreVersion) {
+        RescriptJsonUtils.removeRescriptCore(config)
+      }
     | _ => ()
     }
   )

src/RescriptJsonUtils.res

@@ -0,0 +1,29 @@
+let removeRescriptCore = (config: Dict.t<JSON.t>) => {
+  // Remove @rescript/core from bs-dependencies if the version is not set.
+  switch config->Dict.get("bs-dependencies") {
+  | Some(Array(dependencies)) => {
+      let newDependencies = dependencies->Array.filter(dependency =>
+        switch dependency {
+        | String("@rescript/core") => false
+        | _ => true
+        }
+      )
+      config->Dict.set("bs-dependencies", Array(newDependencies))
+    }
+  | _ => ()
+  }
+
+  // Remove "-open RescriptCore" from bsc-flags if the version is not set.
+  switch config->Dict.get("bsc-flags") {
+  | Some(Array(flags)) => {
+      let newFlags = flags->Array.filter(flag =>
+        switch flag {
+        | String("-open RescriptCore") => false
+        | _ => true
+        }
+      )
+      config->Dict.set("bsc-flags", Array(newFlags))
+    }
+  | _ => ()
+  }
+}

src/RescriptVersions.res

@@ -1,6 +1,6 @@
 module P = ClackPrompts
 
-let rescript12VersionRange = "12.0.0-alpha.x"
+let rescript12VersionRange = ">=12.0.0-alpha.5"
 let rescriptVersionRange = `11.x.x || ${rescript12VersionRange}`
 let rescriptCoreVersionRange = ">=1.0.0"