summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Command/Uninit.hs5
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.