--auto fixes

* get/copy --auto: Transfer data even if it would exceed numcopies,
  when preferred content settings want it.
* drop --auto: Fix dropping content when there are no preferred content
  settings.

1 files changed, 5 insertions, 7 deletions

diff --git a/Utility/Matcher.hs b/Utility/Matcher.hs
index edb4cadd6..3d525e2af 100644
--- a/Utility/Matcher.hs
+++ b/Utility/Matcher.hs
@@ -26,7 +26,7 @@ module Utility.Matcher (
 	match,
 	matchM,
 	matchMrun,
-	matchesAny
+	isEmpty
 ) where
 
 import Common
@@ -105,9 +105,7 @@ matchMrun m run = go m
 		go (MNot m1) = liftM not (go m1)
 		go (MOp o) = run o
 
-{- Checks is a matcher contains no limits, and so (presumably) matches
- - anything. Note that this only checks the trivial case; it is possible
- - to construct matchers that match anything but are more complicated. -}
-matchesAny :: Matcher a -> Bool
-matchesAny MAny = True
-matchesAny _ = False
+{- Checks if a matcher contains no limits. -}
+isEmpty :: Matcher a -> Bool
+isEmpty MAny = True
+isEmpty _ = False