hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Don't remove share dir link prematurely

Browse Source
This commit is contained in:
Julian Ospald 2023-11-13 16:00:48 +08:00
parent 47ef380ebd
commit c6aa5c3ed7
No known key found for this signature in database
GPG Key ID: 4275CDA6A29BED43
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/GHCup/GHC.hs
View File

@ -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")