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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-05-28 22:24:48 -04:00
parent 25b13673f0
commit 66a99d3740
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/Unused.hs
View file

@ -48,9 +48,9 @@ start = notBareRepo $ do
checkUnused :: CommandPerform checkUnused :: CommandPerform
checkUnused = do checkUnused = do
(unused, stalebad, staletmp) <- unusedKeys (unused, stalebad, staletmp) <- unusedKeys
n <- list "" unusedMsg unused 0 _ <- list "" unusedMsg unused 0 >>=
n' <- list "bad" staleBadMsg stalebad n list "bad" staleBadMsg stalebad >>=
_ <- list "tmp" staleTmpMsg staletmp n' list "tmp" staleTmpMsg staletmp
next $ return True next $ return True
where where
list file msg l c = do list file msg l c = do