From 3b2c9cf5b905f383a4b6f25e0dd43287274b6a67 Mon Sep 17 00:00:00 2001
From: jneira <atreyu.bbb@gmail.com>
Date: Wed, 3 Nov 2021 13:16:11 +0100
Subject: [PATCH] Trace env vars

---
 src/extension.ts | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/extension.ts b/src/extension.ts
index 0d4bff9f..d947d560 100644
--- a/src/extension.ts
+++ b/src/extension.ts
@@ -108,7 +108,7 @@ function findManualExecutable(logger: Logger, uri: Uri, folder?: WorkspaceFolder
   if (!executableExists(exePath)) {
     let msg = `serverExecutablePath is set to ${exePath}`;
     if (directoryExists(exePath)) {
-      msg += ' but it is a directory and the config option should point to the executable full path';
+      msg += ' but it is a directory and the config option should point to the executable file full path';
     } else {
       msg += " but it doesn't exist and it is not on the PATH";
     }
@@ -121,6 +121,7 @@ function findManualExecutable(logger: Logger, uri: Uri, folder?: WorkspaceFolder
 function findLocalServer(context: ExtensionContext, logger: Logger, uri: Uri, folder?: WorkspaceFolder): string | null {
   const exes: string[] = ['haskell-language-server-wrapper', 'haskell-language-server'];
   logger.info(`Searching for server executables ${exes.join(',')} in $PATH`);
+  logger.info(`$PATH environment variable: ${process.env.PATH}`);
   for (const exe of exes) {
     if (executableExists(exe)) {
       logger.info(`Found server executable in $PATH: ${exe}`);
@@ -169,6 +170,11 @@ async function activateServerForFolder(context: ExtensionContext, uri: Uri, fold
 
   const logger: Logger = new ExtensionLogger('client', clientLogLevel, outputChannel);
 
+  logger.info('Environment variables:');
+  Object.entries(process.env).forEach(([key, value]: [string, string | undefined]) => {
+    logger.info(`  ${key}: ${value}`);
+  });
+
   let serverExecutable;
   try {
     // Try and find local installations first