From ba6727f66342e59b7e420f102548db5c9a49c6b3 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 12 Jan 2011 01:57:32 -0400
Subject: [PATCH] always write log, so it's empty if nothing is unused

---
 Command/Unused.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/Command/Unused.hs b/Command/Unused.hs
index d2dfc9aa3e..62bc5d023d 100644
--- a/Command/Unused.hs
+++ b/Command/Unused.hs
@@ -38,13 +38,13 @@ checkUnused :: Annex Bool
 checkUnused = do
 	showNote "checking for unused data..."
 	unused <- unusedKeys
+	let list = number 1 unused
+	g <- Annex.gitRepo
+	liftIO $ writeFile (annexUnusedLog g) $ unlines $ 
+		map (\(n, k) -> show n ++ " " ++ show k) list
 	if null unused
 		then return True
 		else do
-			let list = number 1 unused
-			g <- Annex.gitRepo
-			liftIO $ writeFile (annexUnusedLog g) $ unlines $ 
-				map (\(n, k) -> show n ++ " " ++ show k) list
 			showLongNote $ w list
 			return False
 	where