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

refactor

Browse source
This commit is contained in:
Joey Hess 2013-05-24 23:07:26 -04:00
parent f8e940eb8e
commit 2b14fe2c98
5 changed files with 20 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Seek.hs
View file

@ -16,6 +16,7 @@ import System.PosixCompat.Files
import Common.Annex
import Types.Command
import Types.Key
import Types.FileMatcher
import qualified Annex
import qualified Git
import qualified Git.Command
@ -126,7 +127,7 @@ prepFiltered a fs = do
matcher <- Limit.getMatcher
map (process matcher) <$> fs
where
process matcher f = ifM (matcher $ Annex.FileInfo f f)
process matcher f = ifM (matcher $ FileInfo f f)
( a f , return Nothing )
notSymlink :: FilePath -> IO Bool