From 0700fbc47718cad830666e7d8f461d6c9ec5acff Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 21 Jan 2015 13:48:35 -0400
Subject: [PATCH] avoid using MissingH's HVFS layer

---
 Command/Uninit.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/Command/Uninit.hs b/Command/Uninit.hs
index 28c169919a..592b71a02f 100644
--- a/Command/Uninit.hs
+++ b/Command/Uninit.hs
@@ -18,9 +18,6 @@ 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"]
@@ -91,7 +88,7 @@ finish = do
  - preparation for removal. -}
 prepareRemoveAnnexDir :: FilePath -> IO ()
 prepareRemoveAnnexDir annexdir =
-	recurseDir SystemFS annexdir >>= mapM_ (void . tryIO . allowWrite)
+	mapM_ (void . tryIO . allowWrite) =<< dirContentsRecursive annexdir
 
 {- 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.