Added new "anything" preferred content expression, which matches all versions of all files.

This commit is contained in:
Joey Hess 2015-06-16 17:03:34 -04:00
parent 29c03145e6
commit 8c46ea22c2
4 changed files with 18 additions and 4 deletions

View file

@ -193,6 +193,10 @@ limitUnused :: MatchFiles Annex
limitUnused _ (MatchingFile _) = return False
limitUnused _ (MatchingKey k) = S.member k <$> unusedKeys
{- Limit that matches any version of any file. -}
limitAnything :: MatchFiles Annex
limitAnything _ _ = return True
{- Adds a limit to skip files not believed to be present in all
- repositories in the specified group. -}
addInAllGroup :: String -> Annex ()