mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

always write log, so it's empty if nothing is unused

Browse source
This commit is contained in:
Joey Hess 2011-01-12 01:57:32 -04:00
parent 611018e4bd
commit ba6727f663
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Command/Unused.hs
View file

@ -38,13 +38,13 @@ checkUnused :: Annex Bool
checkUnused = do checkUnused = do
showNote "checking for unused data..." showNote "checking for unused data..."
unused <- unusedKeys 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 if null unused
then return True then return True
else do 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 showLongNote $ w list
return False return False
where where