Don't create a log file by default.

Fixes rescript-lang/rescript-vscode#47.

Author: cristianoc

Changes.md

@@ -1,5 +1,6 @@
 ## master
 - Fix issue where type variables are printed with global renaming when hovering or autocompleting a module (see https://github.com/rescript-lang/rescript-editor-support/issues/38).
+- Fix issue where a log file was always created (see https://github.com/rescript-lang/rescript-vscode/issues/47).
 
 ## Release 1.0.1 of rescript-vscode 
 This [commit](https://github.com/rescript-lang/rescript-editor-support/commit/232ad609766c415048750c5cc828973a9995f382) is vendored in [rescript-vscode 1.0.1](https://github.com/rescript-lang/rescript-vscode/releases/tag/1.0.1).

src/rescript-editor-support/Log.re

@@ -1,28 +1,28 @@
 let out = ref(None);
 
 let initial_dest = Filename.concat(Filename.get_temp_dir_name(), "lsp.log");
-out := Some(open_out(initial_dest));
 
-let setLocation = (location) => {
-  switch out^ {
+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))
+  out := Some(open_out(location));
 };
 
 let spamError = ref(false);
 
-let log = (msg) =>
-  switch out^ {
+let log = msg => {
+  if (spamError^) {
+    output_string(stderr, msg ++ "\n");
+    flush(stderr);
+  };
+  switch (out^) {
   | None => ()
   | Some(out) =>
     output_string(out, msg ++ "\n");
-    if (spamError^) {
-      output_string(stderr, msg ++ "\n");
-      flush(stderr)
-    };
-    flush(out)
-  };
+    flush(out);
+  };
+};