From fec9f611df1a5e973f4847ac71fe85bd85abdff4 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Mon, 25 Oct 2010 20:19:08 -0400
Subject: add setkey subcommand

And finished implementing move --to
---
 Core.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'Core.hs')

diff --git a/Core.hs b/Core.hs
index 0d95e382b..881b668e0 100644
--- a/Core.hs
+++ b/Core.hs
@@ -32,12 +32,14 @@ shutdown = do
 
 	liftIO $ Git.run g ["add", gitStateDir g]
 
-	-- clean up any files left in the temp directory
+	-- clean up any files left in the temp directory, but leave
+	-- the tmp directory itself
 	let tmp = annexTmpLocation g
 	exists <- liftIO $ doesDirectoryExist tmp
 	if (exists)
 		then liftIO $ removeDirectoryRecursive $ tmp
 		else return ()
+	liftIO $ createDirectoryIfMissing True tmp
 
 	return True
 
-- 
cgit v1.2.3