diff options
Diffstat (limited to 'Command')
| -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 |