From 5beb6bc76fb3edbc28c238eb9596fc828aa49bfc Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 4 Jul 2011 15:55:03 -0400
Subject: uninit: delete .git/annex/

---
 Command/Uninit.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'Command')

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
-- 
cgit v1.2.3