diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2016-02-03 14:56:34 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-02-03 15:04:42 -0400 |
| commit | 11c3a7cd331f7b07e62493a4e8e37e0cecffc5b0 (patch) | |
| tree | 746fb1ccdfe06f8eb093a0d2d4a2757a8090d3e3 /Command/MatchExpression.hs | |
| parent | 01c701b5a5c18cfa952394ae1cbd2249cfd08f51 (diff) | |
Limit annex.largefiles parsing to the subset of preferred content expressions that make sense in its context.
So, not "standard" or "lackingcopies", etc.
Diffstat (limited to 'Command/MatchExpression.hs')
| -rw-r--r-- | Command/MatchExpression.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Command/MatchExpression.hs b/Command/MatchExpression.hs index 062a46b55..a75101dce 100644 --- a/Command/MatchExpression.hs +++ b/Command/MatchExpression.hs @@ -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 |