Adds descriptive comments in rmGhcupDir explaing silent deletions and

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

View File

@ -1367,6 +1367,7 @@ rmGhcupDirs = do
-- remove bin directory conditionally
rmBinDir binDir
-- report files in baseDir that are left-over after the standard location deletions above
reportRemainingFiles baseDir
where
@ -1405,6 +1406,9 @@ rmGhcupDirs = do
remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir
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
hideError InappropriateType $ rmFile filepath