Make the "languageServerHaskell.trace.server" setting work

Prior to this it had no effect, it now maps to log commands to hie.

For some reason it applies to launching via the debug options, I have
no idea why that is the case.

Mapping is

"off" : hie --lsp
"messages" : hie --lsp -d -l /tmp/hie.log
"verbose" : hie --lsp -d -l /tmp/hie.log --vomit

Author: alanz

package.json

@@ -2,7 +2,7 @@
   "name": "vscode-hie-server",
   "displayName": "Haskell Language Server",
   "description": "Language Server Protocol for Haskell via HIE",
-  "version": "0.0.17",
+  "version": "0.0.18",
   "license": "MIT",
   "publisher": "alanz",
   "engines": {

src/extension.ts

@@ -107,6 +107,7 @@ function activateHieNoCheck(context: ExtensionContext, folder: WorkspaceFolder,
   const useHieWrapper = workspace.getConfiguration('languageServerHaskell', uri).useHieWrapper;
   let hieExecutablePath = workspace.getConfiguration('languageServerHaskell', uri).hieExecutablePath;
   let customWrapperPath = workspace.getConfiguration('languageServerHaskell', uri).useCustomHieWrapperPath;
+  const logLevel = workspace.getConfiguration('languageServerHaskell', uri).trace.server;
 
   // Substitute path variables with their corresponding locations.
   if (useCustomWrapper) {
@@ -147,7 +148,13 @@ function activateHieNoCheck(context: ExtensionContext, folder: WorkspaceFolder,
 
   const tempDir = os.tmpdir();
   const runArgs = [];
-  const debugArgs = ['-d', '-l', path.join(tempDir, 'hie.log')];
+  // const debugArgs = ['-d', '-l', path.join(tempDir, 'hie.log')];
+  let debugArgs = [''];
+  if (logLevel == 'verbose') {
+    debugArgs = ['-d', '-l', path.join(tempDir, 'hie.log'), '--vomit'];
+  } else if (logLevel == 'messages') {
+    debugArgs = ['-d', '-l', path.join(tempDir, 'hie.log')];
+  }
   if (!useCustomWrapper && !useHieWrapper && hieExecutablePath !== '') {
     runArgs.unshift('--lsp');
     debugArgs.unshift('--lsp');