From 88167b18de65eab818324de2e59a8879cce02a81 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Tue, 16 Jun 2015 17:03:34 -0400
Subject: Added new "anything" preferred content expression, which matches all
 versions of all files.

---
 Limit.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'Limit.hs')

diff --git a/Limit.hs b/Limit.hs
index c412637bb..da9b6a155 100644
--- a/Limit.hs
+++ b/Limit.hs
@@ -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 ()
-- 
cgit v1.2.3