fix roundtrip tests

Author: namenu

jscomp/syntax/tests/idempotency/covid-19charts.com/src/Data.res

@@ -57,7 +57,7 @@ type value =
 let dataWithGrowth =
   Map.entries(data)
   |> Js.Array.map(((countryId, dataPoints)) => {
-    let data = lazy {
+    let data = Lazy.from_fun(() => {
       let countryDataWithGrowth = Map.empty()
       let _ = Js.Array.reduce((prevRecord, day) => {
         let record = Map.get(dataPoints, day)
@@ -72,7 +72,7 @@ let dataWithGrowth =
         Some(record)
       }, None, days)
       countryDataWithGrowth
-    }
+    })
     (countryId, data)
   })
   |> Belt.Map.String.fromArray
@@ -92,7 +92,7 @@ let calendar: t = Js.Array.mapi((day, index) => {
       Belt.HashMap.String.set(
         values,
         Map.get(locations, countryId).name,
-        lazy Map.get(Belt.Map.String.getExn(dataWithGrowth, countryId) |> Lazy.force, day),
+        Lazy.from_fun(() => Map.get(Belt.Map.String.getExn(dataWithGrowth, countryId) |> Lazy.force, day)),
       ),
     countryIds,
   )
@@ -140,7 +140,7 @@ let getValue = (dataType, dataItem) => getValueFromRecord(dataType, getRecord(da
 
 let alignToDay0 = (dataType, threshold) => {
   let data = Belt.Map.String.mapU(dataWithGrowth, (. dataPoints) =>
-    lazy {
+    Lazy.from_fun(() => {
       let dataPoints = Lazy.force(dataPoints)
       Map.entries(dataPoints)
       |> Js.Array.map(((date, value)) => (Map.get(dayToIndex, date), value))
@@ -149,7 +149,7 @@ let alignToDay0 = (dataType, threshold) => {
       |> Js.Array.filter(value => getValue(dataType, value) >= threshold)
       |> Js.Array.mapi((value, index) => (index, value))
       |> Belt.Map.Int.fromArray
-    }
+    })
   )
 
   Array.init(Js.Array.length(days), day => {

jscomp/syntax/tests/idempotency/genType/src/Arnold.res

@@ -1359,7 +1359,7 @@ let traverseAst = (~valueBindingsTable) => {
     valueBindings |> List.iter((vb: Typedtree.value_binding) =>
       switch vb.vb_pat.pat_desc {
       | Tpat_var(id, {loc: {loc_start: pos}}) =>
-        let callees = lazy FindFunctionsCalled.findCallees(vb.vb_expr)
+        let callees = Lazy.from_fun(() => FindFunctionsCalled.findCallees(vb.vb_expr))
         Hashtbl.replace(valueBindingsTable, Ident.name(id), (pos, vb.vb_expr, callees))
       | _ => ()
       }

jscomp/syntax/tests/idempotency/genType/src/DeadValue.res

@@ -12,12 +12,12 @@ let whiteListSideEffects = list{
   "Int64.one",
   "String.length",
 }
-let whiteTableSideEffects = lazy {
+let whiteTableSideEffects = Lazy.from_fun(() => {
   let tbl = Hashtbl.create(11)
 
   whiteListSideEffects |> List.iter(s => Hashtbl.add(tbl, s, ()))
   tbl
-}
+})
 
 let pathIsWhitelistedForSideEffects = path =>
   switch path |> Path.flatten {

jscomp/syntax/tests/idempotency/genType/src/Log_.res

@@ -1,5 +1,5 @@
 module Color = {
-  let color_enabled = lazy Unix.isatty(Unix.stdout)
+  let color_enabled = Lazy.from_fun(() => Unix.isatty(Unix.stdout))
   let forceColor = ref(false)
 
   let get_color_enabled = () => forceColor.contents || Lazy.force(color_enabled)

jscomp/syntax/tests/idempotency/genType/src/ModuleResolver.res

@@ -189,7 +189,7 @@ type resolver = {
 }
 
 let createLazyResolver = (~config, ~extensions, ~excludeFile) => {
-  lazyFind: lazy {
+  lazyFind: Lazy.from_fun(() => {
     let (moduleNameMap, bsDependenciesFileMap) = sourcedirsJsonToMap(
       ~config,
       ~extensions,
@@ -210,7 +210,7 @@ let createLazyResolver = (~config, ~extensions, ~excludeFile) => {
         moduleName |> find(~bsDependencies=true, ~map=bsDependenciesFileMap)
       | res => res
       }
-  },
+  }),
 }
 
 let apply = (~resolver, ~useBsDependencies, moduleName) =>