From 86c5bd0327ba1ff0d6aed8ce47031a8497a3e2fb Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 28 May 2011 22:37:17 -0400 Subject: unused --from . checks local repo, for consistency --- Command/Unused.hs | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'Command') diff --git a/Command/Unused.hs b/Command/Unused.hs index 96001683d..5422dad69 100644 --- a/Command/Unused.hs +++ b/Command/Unused.hs @@ -37,13 +37,12 @@ seek = [withNothing start] start :: CommandStartNothing start = notBareRepo $ do from <- Annex.getState Annex.fromremote - case from of - Nothing -> pass "." checkUnused - Just n -> pass n $ checkRemoteUnused n - where - pass n a = do - showStart "unused" n - next a + let (name, action) = case from of + Nothing -> (".", checkUnused) + Just "." -> (".", checkUnused) + Just n -> (n, checkRemoteUnused n) + showStart "unused" name + next action checkUnused :: CommandPerform checkUnused = do -- cgit v1.2.3