Fix for real

2021-06-13 08:36:20 +02:00
parent b40cefee35
commit f14c281841
2 changed files with 2 additions and 2 deletions
--- a/app/ghcup/Main.hs
+++ b/app/ghcup/Main.hs
@@ -1618,7 +1618,7 @@ Make sure to clean up #{tmpdir} afterwards.|])
              target <- case uOpts of
                UpgradeInplace  -> Just <$> liftIO getExecutablePath
                (UpgradeAt p)   -> pure $ Just p
-                UpgradeGHCupDir -> pure (Just (binDir </> "ghcup"))
+                UpgradeGHCupDir -> pure (Just (binDir </> "ghcup" <> exeExt))

              runUpgrade (liftE $ upgradeGHCup target force) >>= \case
                VRight v' -> do