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

make reported leftover file paths absolute

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/GHCup.hs
View File

@ -1437,11 +1437,15 @@ rmGhcupDirs = do
reportRemainingFiles ghcupDir = do reportRemainingFiles ghcupDir = do
remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir 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 expect only files inside cache/log dir
-- we report remaining files/dirs later, -- we report remaining files/dirs later,
-- hence the force/quiet mode in these delete functions below. -- hence the force/quiet mode in these delete functions below.
deleteFile filepath = do deleteFile filepath = do
hideError InappropriateType $ rmFile filepath hideError InappropriateType $ rmFile filepath