diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-01-21 13:48:35 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-21 13:48:35 -0400 |
| commit | 961b5d4d997999485e7b696416574cd0f8663f88 (patch) | |
| tree | 9c8441cefff2fff8fcfffa473d8ce9a8ba771d44 /Command/Uninit.hs | |
| parent | b6b368ed036f2e34ee4b7d39e5b41b1ba2d0a76c (diff) | |
avoid using MissingH's HVFS layer
Diffstat (limited to 'Command/Uninit.hs')
| -rw-r--r-- | Command/Uninit.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs index 28c169919..592b71a02 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. |