Format files (#88)

Using Reason 3.3.7 @ 43efc14

Needed this before we do auto refactors later, to avoid reviewing excessive whitespaces

Author: chenglou

src/rescript-editor-support/BasicServer.re

@@ -90,15 +90,10 @@ let canRead = desc => {
 };
 
 let run =
-    (
-      ~messageHandlers,
-      ~notificationHandlers,
-      ~getInitialState,
-      ~capabilities,
-    ) => {
+    (~messageHandlers, ~notificationHandlers, ~getInitialState, ~capabilities) => {
   let stdin_descr = Unix.descr_of_in_channel(stdin);
 
-  let rec loop = (~isShuttingDown, state) => {
+  let rec loop = (~isShuttingDown, state) =>
     if (canRead(stdin_descr)) {
       switch (Rpc.readMessage(stdin)) {
       | Message(id, "shutdown", _params) =>
@@ -126,7 +121,6 @@ let run =
     } else {
       loop(~isShuttingDown, state);
     };
-  };
 
   let initialize = () =>
     switch (Rpc.readMessage(stdin)) {

src/rescript-editor-support/BuildSystem.re

@@ -14,10 +14,7 @@ let getBsPlatformDir = rootPath => {
     );
   let result =
     if (result == None) {
-      ModuleResolution.resolveNodeModulePath(
-        ~startPath=rootPath,
-        "rescript",
-      );
+      ModuleResolution.resolveNodeModulePath(~startPath=rootPath, "rescript");
     } else {
       result;
     };

src/rescript-editor-support/Files.re

@@ -52,7 +52,7 @@ let relpath = (base, path) =>
   };
 
 let maybeStat = path =>
-  try(Some(Unix.stat(path))) {
+  try (Some(Unix.stat(path))) {
   | Unix.Unix_error(Unix.ENOENT, _, _) => None
   };
 
@@ -100,7 +100,7 @@ let ifExists = path => exists(path) ? Some(path) : None;
 
 let readDirectory = dir => {
   let maybeGet = handle =>
-    try(Some(Unix.readdir(handle))) {
+    try (Some(Unix.readdir(handle))) {
     | End_of_file => None
     };
   let rec loop = handle =>

src/rescript-editor-support/FindFiles.re

@@ -89,7 +89,7 @@ let filterDuplicates = cmts => {
        }
      );
   cmts
-  |> List.filter(path => {
+  |> List.filter(path =>
        !(
          (
            Filename.check_suffix(path, ".re")
@@ -98,7 +98,7 @@ let filterDuplicates = cmts => {
          )
          && Hashtbl.mem(intfs, getName(path))
        )
-     });
+     );
 };
 
 let nameSpaceToName = n =>

src/rescript-editor-support/JsonShort.re

@@ -1,4 +1,3 @@
-
 open Json;
 let o = o => Object(o);
 let s = s => String(s);