Remove readFileResult

Author: chenglou

src/Files.ml

@@ -68,11 +68,6 @@ let readFile path =
     Some text
   | _ -> None
 
-let readFileResult path =
-  match readFile path with
-  | None -> Error ("Unable to read " ^ path)
-  | Some text -> Ok text
-
 let exists path = match maybeStat path with None -> false | Some _ -> true
 
 let ifExists path = match exists path with true -> Some path | false -> None

src/Packages.ml

@@ -14,9 +14,10 @@ let makePathsForModule (localModules : (string * SharedTypes.paths) list)
   pathsForModule
 
 let newBsPackage rootPath =
-  match Files.readFileResult (rootPath /+ "bsconfig.json") with
-  | Error e -> Error e
-  | Ok raw -> (
+  let path = rootPath /+ "bsconfig.json" in
+  match Files.readFile path with
+  | None -> Error ("Unable to read " ^ path)
+  | Some raw -> (
     let config = Json.parse raw in
     Log.log {|📣 📣 NEW BSB PACKAGE 📣 📣|};
     (* failwith("Wat"); *)