diff options
author | Joey Hess <joey@kitenet.net> | 2010-11-13 16:03:25 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-11-13 16:03:25 -0400 |
commit | 498c8e8544f04841d3221ce7a47b2409858e9f38 (patch) | |
tree | fb01cd7884ba68d6522c7dc3ad13821b555892a5 /Command.hs | |
parent | d9d79a7980b5c9a84823c0cf38750a0189d03b0a (diff) |
fsck: avoid global checks if files specified
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Command.hs b/Command.hs index 4180155fa..3f68cf661 100644 --- a/Command.hs +++ b/Command.hs @@ -126,8 +126,8 @@ backendPairs :: SubCmdSeekBackendFiles backendPairs a files = do pairs <- Backend.chooseBackends files return $ map a pairs -withDescription :: SubCmdSeekStrings -withDescription a params = return [a $ unwords params] +withString :: SubCmdSeekStrings +withString a params = return [a $ unwords params] withFilesToBeCommitted :: SubCmdSeekStrings withFilesToBeCommitted a params = do repo <- Annex.gitRepo @@ -143,8 +143,6 @@ withKeys :: SubCmdSeekStrings withKeys a params = return $ map a params withTempFile :: SubCmdSeekStrings withTempFile a params = return $ map a params -withNothing :: SubCmdSeekNothing -withNothing a _ = return [a] {- Default to acting on all files matching the seek action if - none are specified. -} |