Remove code for the server, and dead code resulting.

Author: cristianoc

src/BasicServer.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 =>
@@ -120,16 +120,6 @@ let readDirectory = dir => {
   };
 };
 
-let rec mkdirp = dest =>
-  if (!exists(dest)) {
-    let parent = Filename.dirname(dest);
-    mkdirp(parent);
-    Unix.mkdir(dest, 0o740);
-    if (!exists(dest)) {
-      failwith("Unable to create " ++ dest);
-    };
-  };
-
 let rec collectDirs = path => {
   switch (maybeStat(path)) {
   | None => []

src/CodeLens.re

@@ -3,5 +3,4 @@ let o = o => Object(o);
 let s = s => String(s);
 let i = i => Number(float_of_int(i));
 let l = l => Array(l);
-let t = True;
 let null = Null;

src/Files.re

@@ -1,26 +1,7 @@
-let out = ref(None);
-
-let setLocation = location => {
-  switch (out^) {
-  | None => ()
-  | Some(out) => close_out(out)
-  };
-  output_string(stderr, "Setting log location: " ++ location ++ "\n");
-  flush(stderr);
-  out := Some(open_out(location));
-};
-
 let spamError = ref(false);
 
-let log = msg => {
+let log = msg =>
   if (spamError^) {
     output_string(stderr, msg ++ "\n");
     flush(stderr);
   };
-  switch (out^) {
-  | None => ()
-  | Some(out) =>
-    output_string(out, msg ++ "\n");
-    flush(out);
-  };
-};

src/JsonShort.re

@@ -1,5 +1,3 @@
-let debug = ref(false);
-
 let parseMerlin = text => {
   let lines = Str.split(Str.regexp_string("\n"), text);
   List.fold_left(

src/Log.re

@@ -1,2 +1 @@
-let debug: ref(bool);
 let getFlags: string => result(list(string), string);