diff options
Diffstat (limited to 'Command/Unused.hs')
| -rw-r--r-- | Command/Unused.hs | 13 |
1 files changed, 6 insertions, 7 deletions
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 |