Fix 'ghcup install hls -u' on windows

Fixes #716

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

lib/GHCup/Prelude/File/Posix.hs

@@ -48,7 +48,6 @@ import           Streamly.Internal.Data.Unfold.Type
 import qualified Streamly.Internal.Data.Unfold as U
 import           Streamly.Internal.Control.Concurrent ( withRunInIO )
 import           Streamly.Internal.Data.IOFinalizer   ( newIOFinalizer, runIOFinalizer )
-import GHC.IO.Exception (IOException(ioe_type), IOErrorType (..))
 
 
 -- | On unix, we can use symlinks, so we just get the
@@ -117,18 +116,8 @@ copyFile from to fail' = do
         let dflags = [ FD.oNofollow
                      , if fail' then FD.oExcl else FD.oTrunc
                      ]
-        let openFdHandle' = openFdHandle to SPI.WriteOnly dflags $ Just sourceFileMode
         bracket
-          (handleIO (\e -> if
+          (openFdHandle to SPI.WriteOnly dflags $ Just sourceFileMode)
-                              -- if we copy from regular file to symlink, we need
-                              -- to delete the symlink
-                              | ioe_type e == InvalidArgument
-                              , not fail' -> do
-                                 removeLink to
-                                 openFdHandle'
-                              | otherwise -> throwIO e
-                    )
-            openFdHandle')
           (hClose . snd)
           $ \(_, tH) -> do
               hSetBinaryMode fH True