diff options
Diffstat (limited to 'Logs/PreferredContent.hs')
| -rw-r--r-- | Logs/PreferredContent.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Logs/PreferredContent.hs b/Logs/PreferredContent.hs index 9bb915983..049d6b86b 100644 --- a/Logs/PreferredContent.hs +++ b/Logs/PreferredContent.hs @@ -53,8 +53,8 @@ isPreferredContent mu notpresent file = do case M.lookup u m of Nothing -> return True Just matcher -> - Utility.Matcher.matchM2 matcher notpresent $ - getTopFilePath file + Utility.Matcher.matchMrun matcher $ \a -> + a notpresent (getTopFilePath file) {- Read the preferredContentLog into a map. The map is cached for speed. -} preferredContentMap :: Annex Annex.PreferredContentMap |