diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-13 23:36:58 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-13 23:36:58 -0400 |
commit | 23686cc63d38faf7fb4d66ece8cbeb5214b07e5f (patch) | |
tree | 0b93b42d76c0d004c7722a525bcaf2cb6ae8529a /Command.hs | |
parent | 2a67721d51918339570f9db2b41d413205307e97 (diff) |
clarify default values when no path is specified
Much of the code to handle this was unnecessary, as git ls-files is used,
and defaults to returning all files of the desired type.
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/Command.hs b/Command.hs index 31bb1f1f9..9fafb18ef 100644 --- a/Command.hs +++ b/Command.hs @@ -174,19 +174,6 @@ backendPairs a files = do pairs <- Backend.chooseBackends files return $ map a pairs -{- Default to acting on all files matching the seek action if - - none are specified. -} -withAll :: (a -> CommandSeek) -> a -> CommandSeek -withAll w a [] = do - g <- Annex.gitRepo - w a [Git.workTree g] -withAll w a p = w a p - -{- Provides a default parameter to act on if none is specified. -} -withDefault :: String-> (a -> CommandSeek) -> (a -> CommandSeek) -withDefault d w a [] = w a [d] -withDefault _ w a p = w a p - {- Filter out files from the state directory, and those matching the - exclude glob pattern, if it was specified. -} filterFiles :: [FilePath] -> Annex [FilePath] |