Fix 'ghcup upgrade' on windows

2021-06-13 07:51:54 +02:00 · 2021-06-13 07:51:54 +02:00 · b40cefee35
parent ff32ccfb50
commit b40cefee35
1 changed files with 1 additions and 1 deletions
--- a/lib/GHCup.hs
+++ b/lib/GHCup.hs
@ -1637,7 +1637,7 @@ upgradeGHCup mtarget force = do
  let fn = "ghcup" <> exeExt
  p <- liftE $ download settings dli tmp (Just fn)
  let destDir = takeDirectory destFile
-      destFile = fromMaybe (binDir </> fn) mtarget
+      destFile = fromMaybe (binDir </> (fn <> exeExt)) mtarget
  lift $ $(logDebug) [i|mkdir -p #{destDir}|]
  liftIO $ createDirRecursive' destDir
  lift $ $(logDebug) [i|rm -f #{destFile}|]