mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove dup filter

Browse source
This commit is contained in:
Joey Hess 2010-11-11 18:26:27 -04:00
parent f2c7a6e73d
commit 5357d3a37a
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
CmdLine.hs
View file

@ -117,7 +117,7 @@ usage = usageInfo header options ++ "\nSubcommands:\n" ++ cmddescs
pad n s = replicate (n - length s) ' ' pad n s = replicate (n - length s) ' '
{- These functions find appropriate files or other things based on a {- These functions find appropriate files or other things based on a
user's parameters. -} user's parameters, and run a specified action on them. -}
withFilesInGit :: SubCmdSeekStrings withFilesInGit :: SubCmdSeekStrings
withFilesInGit a params = do withFilesInGit a params = do
repo <- Annex.gitRepo repo <- Annex.gitRepo
@ -135,7 +135,7 @@ withFilesNotInGit :: SubCmdSeekBackendFiles
withFilesNotInGit a params = do withFilesNotInGit a params = do
repo <- Annex.gitRepo repo <- Annex.gitRepo
newfiles <- liftIO $ mapM (Git.notInRepo repo) params newfiles <- liftIO $ mapM (Git.notInRepo repo) params
backendPairs a $ foldl (++) [] newfiles backendPairs a $ filter notState $ foldl (++) [] newfiles
withFilesUnlocked :: SubCmdSeekBackendFiles withFilesUnlocked :: SubCmdSeekBackendFiles
withFilesUnlocked a params = do withFilesUnlocked a params = do
-- unlocked files have changed type from a symlink to a regular file -- unlocked files have changed type from a symlink to a regular file
@ -146,7 +146,7 @@ withFilesUnlocked a params = do
backendPairs :: SubCmdSeekBackendFiles backendPairs :: SubCmdSeekBackendFiles
backendPairs a files = do backendPairs a files = do
pairs <- Backend.chooseBackends files pairs <- Backend.chooseBackends files
return $ map a $ filter (\(f,_) -> notState f) pairs return $ map a pairs
withDescription :: SubCmdSeekStrings withDescription :: SubCmdSeekStrings
withDescription a params = return [a $ unwords params] withDescription a params = return [a $ unwords params]
withFilesToBeCommitted :: SubCmdSeekStrings withFilesToBeCommitted :: SubCmdSeekStrings