diff options
-rw-r--r-- | Command/Uninit.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs index 592b71a02..28c169919 100644 --- a/Command/Uninit.hs +++ b/Command/Uninit.hs @@ -18,6 +18,9 @@ import Annex.Content import Annex.Init import Utility.FileMode +import System.IO.HVFS +import System.IO.HVFS.Utils + cmd :: [Command] cmd = [addCheck check $ command "uninit" paramPaths seek SectionUtility "de-initialize git-annex and clean out repository"] @@ -88,7 +91,7 @@ finish = do - preparation for removal. -} prepareRemoveAnnexDir :: FilePath -> IO () prepareRemoveAnnexDir annexdir = - mapM_ (void . tryIO . allowWrite) =<< dirContentsRecursive annexdir + recurseDir SystemFS annexdir >>= mapM_ (void . tryIO . allowWrite) {- Keys that were moved out of the annex have a hard link still in the - annex, with > 1 link count, and those can be removed. |