fsck: avoid global checks if files specified

This commit is contained in:
Joey Hess 2010-11-13 16:03:25 -04:00
parent d9d79a7980
commit 498c8e8544
4 changed files with 17 additions and 12 deletions

View file

@ -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. -}