diff options
Diffstat (limited to 'Command')
| -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 |