wrapper: find exe named h-l-s-<ghcVersion>~<hlsVersion> like GHCUP na…

…mes it
haskell · Dec 3, 2024 · 9c8fb52 · 9c8fb52
1 parent b8127f7
commit 9c8fb52
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/exe/Wrapper.hs b/exe/Wrapper.hs
@@ -148,7 +148,8 @@ launchHaskellLanguageServer recorder parsedArgs = do
 
       let
         hlsBin = "haskell-language-server-" ++ ghcVersion
-        candidates' = [hlsBin, "haskell-language-server"]
+        ghcupBin = "haskell-language-server-" ++ ghcVersion ++ "~" ++ hlsVersion
+        candidates' = [hlsBin, ghcupBin, "haskell-language-server"]
         candidates = map (++ exeExtension) candidates'
 
       liftIO $ hPutStrLn stderr $ "haskell-language-server exe candidates: " ++ show candidates