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

dead code

Browse source
This commit is contained in:
Joey Hess 2012-01-02 23:30:41 -04:00
parent fc80b8d96b
commit ab8fa0d205
1 changed files with 0 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Seek.hs
View file

@ -44,11 +44,6 @@ withBackendFilesInGit a params = do
files <- seekHelper LsFiles.inRepo params files <- seekHelper LsFiles.inRepo params
prepBackendPairs a files prepBackendPairs a files
withFilesMissing :: (String -> CommandStart) -> CommandSeek
withFilesMissing a params = prepFiltered a $ liftIO $ filterM missing params
where
missing = liftM not . doesFileExist
withFilesNotInGit :: (BackendFile -> CommandStart) -> CommandSeek withFilesNotInGit :: (BackendFile -> CommandStart) -> CommandSeek
withFilesNotInGit a params = do withFilesNotInGit a params = do
force <- Annex.getState Annex.force force <- Annex.getState Annex.force