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

Limit annex.largefiles parsing to the subset of preferred content expressions that make sense in its context.

Browse source 
So, not "standard" or "lackingcopies", etc.
This commit is contained in:
Joey Hess 2016-02-03 14:56:34 -04:00
parent cdf5977053
commit 403b56fb91
Failed to extract signature
6 changed files with 110 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Command/MatchExpression.hs
View file

@ -60,7 +60,7 @@ optParser desc = MatchExpressionOptions
seek :: MatchExpressionOptions -> CommandSeek
seek o = do
u <- getUUID
case parsedToMatcher $ exprParser matchAll matchAll groupMap M.empty (Just u) (matchexpr o) of
case parsedToMatcher $ preferredContentParser matchAll matchAll groupMap M.empty (Just u) (matchexpr o) of
Left e -> liftIO $ bail $ "bad expression: " ++ e
Right matcher -> ifM (checkmatcher matcher)
( liftIO exitSuccess