From 66a99d3740d5996d328424c9492ed83fc36a77e4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 28 May 2011 22:24:48 -0400 Subject: tweak --- Command/Unused.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Command') 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 -- cgit v1.2.3