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

simplify

Browse source
This commit is contained in:
Joey Hess 2016-02-03 13:23:34 -04:00
parent 5d9c7a1164
commit cdf5977053
Failed to extract signature
3 changed files with 19 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Logs/PreferredContent.hs
View file

@ -125,7 +125,7 @@ makeMatcher groupmap configmap groupwantedmap u = go True True
unknownMatcher :: UUID -> FileMatcher Annex
unknownMatcher u = generate [present]
where
present = Operation $ matchPresent (Just u)
present = Operation $ limitPresent (Just u)
{- Checks if an expression can be parsed, if not returns Just error -}
checkPreferredContentExpression :: PreferredContentExpression -> Maybe String