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

improve matcher data type to allow matching Keys, instead of just files (no behavior changes)

Browse source
This commit is contained in:
Joey Hess 2014-01-18 14:51:55 -04:00
parent a135bbd5a2
commit 8ce515ffe4
8 changed files with 49 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/FileMatcher.hs
View file

@ -35,11 +35,11 @@ checkFileMatcher' matcher file notpresent def
| isEmpty matcher = return def
| otherwise = do
matchfile <- getTopFilePath <$> inRepo (toTopFilePath file)
let fi = FileInfo
let mi = MatchingFile $ FileInfo
{ matchFile = matchfile
, relFile = file
}
matchMrun matcher $ \a -> a notpresent fi
matchMrun matcher $ \a -> a notpresent mi
matchAll :: FileMatcher
matchAll = generate []