Don't remove share dir link prematurely
This commit is contained in:
parent
47ef380ebd
commit
c6aa5c3ed7
@ -763,6 +763,7 @@ rmGHCVer ver = do
|
|||||||
|
|
||||||
Dirs {..} <- lift getDirs
|
Dirs {..} <- lift getDirs
|
||||||
|
|
||||||
|
when isSetGHC $ do
|
||||||
lift $ hideError doesNotExistErrorType $ rmDirectoryLink (fromGHCupPath baseDir </> "share")
|
lift $ hideError doesNotExistErrorType $ rmDirectoryLink (fromGHCupPath baseDir </> "share")
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user