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

uninit: delete .git/annex/

Browse source
This commit is contained in:
Joey Hess 2011-07-04 15:55:03 -04:00
parent 9d7b35f7ad
commit 5beb6bc76f
2 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Uninit.hs
View file

@ -21,6 +21,7 @@ import qualified Command.Unannex
import qualified Command.Init
import qualified Branch
import Content
import Locations
command :: [Command]
command = [repoCommand "uninit" paramPath seek
@ -40,9 +41,11 @@ cleanup = do
g <- Annex.gitRepo
gitPreCommitHookUnWrite g
saveState
liftIO $ Git.run g "branch" [Param "-D", Param Branch.name]
-- bypass normal shutdown, which writes to the deleted branch
liftIO exitSuccess
liftIO $ do
Git.run g "branch" [Param "-D", Param Branch.name]
removeDirectoryRecursive (gitAnnexDir g)
-- avoid normal shutdown
exitSuccess
gitPreCommitHookUnWrite :: Git.Repo -> Annex ()
gitPreCommitHookUnWrite repo = do