Don't remove share dir link prematurely

2023-11-13 16:00:48 +08:00
parent 47ef380ebd
commit c6aa5c3ed7
1 changed files with 2 additions and 1 deletions
--- a/lib/GHCup/GHC.hs
+++ b/lib/GHCup/GHC.hs
@@ -763,7 +763,8 @@ rmGHCVer ver = do

  Dirs {..} <- lift getDirs

-  lift $ hideError doesNotExistErrorType $ rmDirectoryLink (fromGHCupPath baseDir </> "share")
+  when isSetGHC $ do
+    lift $ hideError doesNotExistErrorType $ rmDirectoryLink (fromGHCupPath baseDir </> "share")