diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-01-25 16:16:18 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-01-25 16:16:18 -0400 |
commit | 2d0d0b1b401cdcd9c6c1c530826a61bfc3349d12 (patch) | |
tree | 5cab04dc2cfa5d887244a4f31191158f7914a445 /Limit | |
parent | 4fcd04b876f4fc4f3738d80ef66b29a76871aa2d (diff) |
matchexpression: New plumbing command to check if a preferred content expression matches some data.
Diffstat (limited to 'Limit')
-rw-r--r-- | Limit/Wanted.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Limit/Wanted.hs b/Limit/Wanted.hs index 237cb7ae0..c11e24b7d 100644 --- a/Limit/Wanted.hs +++ b/Limit/Wanted.hs @@ -21,3 +21,4 @@ addWantDrop = addLimit $ Right $ const $ checkWant $ wantDrop False Nothing Noth checkWant :: (Maybe FilePath -> Annex Bool) -> MatchInfo -> Annex Bool checkWant a (MatchingFile fi) = a (Just $ matchFile fi) checkWant _ (MatchingKey _) = return False +checkWant _ (MatchingInfo {}) = return False |