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

make adding modified files work on crippled filesystems

Browse source
This commit is contained in:
Joey Hess 2013-02-20 14:12:55 -04:00
parent c2b8db3e69
commit 52902c0945
3 changed files with 18 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Seek.hs
View file

@ -88,6 +88,11 @@ withFilesUnlocked' typechanged a params = do
let unlockedfiles = liftIO $ filterM notSymlink typechangedfiles
prepFiltered a unlockedfiles
{- Finds files that may be modified. -}
withFilesMaybeModified :: (FilePath -> CommandStart) -> CommandSeek
withFilesMaybeModified a params =
prepFiltered a $ seekHelper LsFiles.modified params
withKeys :: (Key -> CommandStart) -> CommandSeek
withKeys a params = return $ map (a . parse) params
where