diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-05-28 22:24:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-05-28 22:24:48 -0400 |
| commit | 66a99d3740d5996d328424c9492ed83fc36a77e4 (patch) | |
| tree | 29b0a976d1178e51ee8b403947bcf02f7ae49a2b | |
| parent | 25b13673f0574ad2cc7baa055d08c13da134821a (diff) | |
tweak
| -rw-r--r-- | Command/Unused.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Unused.hs b/Command/Unused.hs index 7e5549c09..08f0148dc 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -48,9 +48,9 @@ start = notBareRepo $ do checkUnused :: CommandPerform checkUnused = do (unused, stalebad, staletmp) <- unusedKeys - n <- list "" unusedMsg unused 0 - n' <- list "bad" staleBadMsg stalebad n - _ <- list "tmp" staleTmpMsg staletmp n' + _ <- list "" unusedMsg unused 0 >>= + list "bad" staleBadMsg stalebad >>= + list "tmp" staleTmpMsg staletmp next $ return True where list file msg l c = do |