Update global config on extension restart

Author: dyniec

src/extension.ts

@@ -10,7 +10,7 @@ import {
 import * as constants from './commands/constants';
 import * as DocsBrowser from './docsBrowser';
 import { HlsError, MissingToolError, NoMatchingHls } from './errors';
-import { findHaskellLanguageServer, HlsExecutable, IEnvVars } from './hlsBinaries';
+import { findHaskellLanguageServer, HlsExecutable, IEnvVars, fetchConfig } from './hlsBinaries';
 import { addPathToProcessPath, comparePVP, callAsync } from './utils';
 import { Config, initConfig, initLoggerFromConfig, logConfig } from './config';
 import { HaskellStatusBar } from './statusBar';
@@ -83,6 +83,7 @@ export async function activate(context: ExtensionContext) {
       await langClient?.client.stop();
     }
     clients.clear();
+    fetchConfig();
 
     for (const document of workspace.textDocuments) {
       await activateServer(context, document);

src/hlsBinaries.ts

@@ -13,7 +13,7 @@ import {
 } from './utils';
 import { ToolConfig, Tool, initDefaultGHCup, GHCup, GHCupConfig } from './ghcup';
 import { getHlsMetadata } from './metadata';
-export { IEnvVars };
+export { IEnvVars, fetchConfig };
 
 export type Context = {
   manageHls: ManageHLS;
@@ -25,7 +25,7 @@ export type Context = {
 /**
  * Global configuration for this extension.
  */
-const haskellConfig = workspace.getConfiguration('haskell');
+let haskellConfig = workspace.getConfiguration('haskell');
 
 /**
  * On Windows the executable needs to be stored somewhere with an .exe extension
@@ -35,6 +35,11 @@ const exeExt = process.platform === 'win32' ? '.exe' : '';
 type ManageHLS = 'GHCup' | 'PATH';
 let manageHLS = haskellConfig.get('manageHLS') as ManageHLS;
 
+function fetchConfig() {
+  haskellConfig = workspace.getConfiguration('haskell');
+  manageHLS = haskellConfig.get('manageHLS') as ManageHLS;
+}
+
 /**
  * Gets serverExecutablePath and fails if it's not set.
  * @param logger Log progress.