Consider all locally compiled versions

Author: hasufell

src/hlsBinaries.ts

@@ -546,24 +546,34 @@ async function getLatestHLSfromGHCup(
       undefined,
       false,
   );
-  const latestHlsVersion = hlsVersions.split(/\r?\n/).pop()!.split(' ')[1];
+  const installedHLSVersions = hlsVersions.split(/\r?\n/).pop()!.split(' ');
+
   let bindir = await callGHCup(context, logger,
       ['whereis', 'bindir'],
       undefined,
       false
   );
 
-  let hlsBin = '';
-  if (targetGhc) {
-    hlsBin = path.join(bindir, `haskell-language-server-${targetGhc}~${latestHlsVersion}${exeExt}`);
-  } else {
-    hlsBin = path.join(bindir, `haskell-language-server-wrapper-${latestHlsVersion}${exeExt}`);
-  }
 
-  if (fs.existsSync(hlsBin)) {
-    return [latestHlsVersion, hlsBin];
+  const hlses = installedHLSVersions.map(hls => {
+      let hlsBin = '';
+      if (targetGhc) {
+        hlsBin = path.join(bindir, `haskell-language-server-${targetGhc}~${hls}${exeExt}`);
+      } else {
+        hlsBin = path.join(bindir, `haskell-language-server-wrapper-${hls}${exeExt}`);
+      }
+
+      if (fs.existsSync(hlsBin)) {
+        return [hls, hlsBin];
+      } else {
+          return null;
+      }
+  }).filter(e => e !== null);
+
+  if (hlses.length > 0) {
+      return hlses[hlses.length - 1] as [string, string];
   } else {
-    return null;
+      return null;
   }
 }