Fix 'ghcup install hls -u' on windows

Fixes #716
2023-01-01 23:27:37 +08:00 · 2023-01-01 23:27:37 +08:00 · 2783b8f693
commit 2783b8f693
parent d1075987de
1 changed files with 1 additions and 1 deletions
--- a/app/ghcup/GHCup/OptParse/Install.hs
+++ b/app/ghcup/GHCup/OptParse/Install.hs
@ -452,7 +452,7 @@ install installCommand settings getAppState' runLogger = case installCommand of
           (_tvVersion -> v, vi) <- liftE $ fromVersion instVer HLS
           -- TODO: support legacy
           liftE $ runBothE' (installHLSBindist
-                                      (DownloadInfo uri (Just $ RegexDir "haskell-language-server-*") "")
+                                      (DownloadInfo uri (if isWindows then Nothing else Just (RegexDir "haskell-language-server-*")) "")
                                      v
                                      (maybe GHCupInternal IsolateDir isolateDir)
                                      forceInstall