From 9c8fb52da69f4ea0334c61da24e1bdb69e258a6a Mon Sep 17 00:00:00 2001
From: Adam Sandberg Ericsson <adam@sandbergericsson.se>
Date: Tue, 3 Dec 2024 19:30:51 +0000
Subject: [PATCH] wrapper: find exe named h-l-s-<ghcVersion>~<hlsVersion> like
 GHCUP names it

---
 exe/Wrapper.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/exe/Wrapper.hs b/exe/Wrapper.hs
index 2c2401ab6a..6b4ecbc4b9 100644
--- 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