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

Adds descriptive comments in rmGhcupDir explaing silent deletions and

Browse Source 
leftover reporting.
This commit is contained in:
Arjun Kathuria 2021-06-26 22:09:32 +05:30
parent 708cd5ead9
commit bb7229d224
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/GHCup.hs
View File

@ -1367,6 +1367,7 @@ rmGhcupDirs = do
-- remove bin directory conditionally -- remove bin directory conditionally
rmBinDir binDir rmBinDir binDir
-- report files in baseDir that are left-over after the standard location deletions above
reportRemainingFiles baseDir reportRemainingFiles baseDir
where where
@ -1405,6 +1406,9 @@ rmGhcupDirs = do
remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir
pure remainingFiles pure remainingFiles
-- we expect only files inside cache/log dir
-- we report remaining files/dirs later,
-- hence the force/quiet mode in these delete functions below.
deleteFile filepath = do deleteFile filepath = do
hideError InappropriateType $ rmFile filepath hideError InappropriateType $ rmFile filepath