summaryrefslogtreecommitdiff
path: root/Command.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Command.hs')
-rw-r--r--Command.hs5
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 )