diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-07-04 15:55:03 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-07-04 15:55:03 -0400 |
| commit | 5beb6bc76fb3edbc28c238eb9596fc828aa49bfc (patch) | |
| tree | 5068c9b0de21ffb1906743c0c7bda0b5cbbd9d6a /Command/Uninit.hs | |
| parent | 9d7b35f7addee7194a40784e06dfbdc9a8d2fa34 (diff) | |
uninit: delete .git/annex/
Diffstat (limited to 'Command/Uninit.hs')
| -rw-r--r-- | Command/Uninit.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Command/Uninit.hs b/Command/Uninit.hs index 22006f7dc..5cb66e83a 100644 --- a/Command/Uninit.hs +++ b/Command/Uninit.hs @@ -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 |