generalized Annex.Wanted

this should make it easy to use from inside the assistant, where
everything is an AssociatedFile.

1 files changed, 5 insertions, 0 deletions

diff --git a/Command.hs b/Command.hs
index f2b95aa4c..8e7bf9758 100644
--- a/Command.hs
+++ b/Command.hs
@@ -22,6 +22,7 @@ module Command (
 	numCopies,
 	autoCopies,
 	autoCopiesWith,
+	checkAuto,
 	module ReExported
 ) where
 
@@ -137,3 +138,7 @@ autoCopiesWith file key vs a = do
 			if length have `vs` needed
 				then a numcopiesattr
 				else stop
+
+checkAuto :: Annex Bool -> Annex Bool
+checkAuto checker = ifM (Annex.getState Annex.auto)
+	( checker , return True )