diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-01-18 14:51:55 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-01-18 14:51:55 -0400 |
| commit | 842ca9c4b684ec21b9e5a99b3742db5f36a1440f (patch) | |
| tree | b198d4b4d66dd9497820f0149906df3a5a37e0cd /Annex/FileMatcher.hs | |
| parent | beb9bfa4454c46f62e6ecb4bc180b4a33cce6370 (diff) | |
improve matcher data type to allow matching Keys, instead of just files (no behavior changes)
Diffstat (limited to 'Annex/FileMatcher.hs')
| -rw-r--r-- | Annex/FileMatcher.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Annex/FileMatcher.hs b/Annex/FileMatcher.hs index cded857a2..96cb8fd6f 100644 --- a/Annex/FileMatcher.hs +++ b/Annex/FileMatcher.hs @@ -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 [] |