diff --git a/lib/GHCup.hs b/lib/GHCup.hs index a867a17..0a380fc 100644 --- a/lib/GHCup.hs +++ b/lib/GHCup.hs @@ -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