make reported leftover file paths absolute

This commit is contained in:
Arjun Kathuria 2021-06-29 08:56:57 +05:30
parent f09f4bd1b7
commit bed06d1334
1 changed files with 5 additions and 1 deletions

View File

@ -1437,11 +1437,15 @@ rmGhcupDirs = do
reportRemainingFiles ghcupDir = do
remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir
pure remainingFiles
remainingFilesAbsolute <- makePathsAbsolute remainingFiles
pure remainingFilesAbsolute
makePathsAbsolute paths = liftIO $ traverse makeAbsolute paths
-- 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