Fix 'ghcup install hls -u' on windows

Fixes #716
2023-01-02 20:38:58 +08:00
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