diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-12 01:57:32 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-12 01:57:32 -0400 |
| commit | ba6727f66342e59b7e420f102548db5c9a49c6b3 (patch) | |
| tree | 228efcd0745d95a640eb2848cc5fd9a44a498050 | |
| parent | 611018e4bd1a79becdbb58846f8faa7464a57a01 (diff) | |
always write log, so it's empty if nothing is unused
| -rw-r--r-- | Command/Unused.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index d2dfc9aa3..62bc5d023 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 |