Convert Process_406 to unmonad

Author: chenglou

src/rescript-editor-support/Process_406.re

@@ -1,15 +1,18 @@
 open SharedTypes;
 
-let fileForCmt = (~moduleName, ~uri, cmt, processDoc) => {
-  let%try infos = Shared.tryReadCmt(cmt);
-  Ok(ProcessCmt.forCmt(~moduleName, ~uri, processDoc, infos));
-};
+let fileForCmt = (~moduleName, ~uri, cmt, processDoc) =>
+  switch (Shared.tryReadCmt(cmt)) {
+  | Error(e) => Error(e)
+  | Ok(infos) => Ok(ProcessCmt.forCmt(~moduleName, ~uri, processDoc, infos))
+  };
 
-let fullForCmt = (~moduleName, ~uri, cmt, processDoc) => {
-  let%try infos = Shared.tryReadCmt(cmt);
-  let file = ProcessCmt.forCmt(~moduleName, ~uri, processDoc, infos);
-  let extra = ProcessExtra.forCmt(~file, infos);
-  Ok({file, extra});
-};
+let fullForCmt = (~moduleName, ~uri, cmt, processDoc) =>
+  switch (Shared.tryReadCmt(cmt)) {
+  | Error(e) => Error(e)
+  | Ok(infos) =>
+    let file = ProcessCmt.forCmt(~moduleName, ~uri, processDoc, infos);
+    let extra = ProcessExtra.forCmt(~file, infos);
+    Ok({file, extra});
+  };
 
 module PrintType = PrintType;