mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid using MissingH's HVFS layer

Browse source
This commit is contained in:
Joey Hess 2015-01-21 13:48:35 -04:00
parent a7f05c007b
commit 0700fbc477
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Command/Uninit.hs
View file

@ -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.