diff options
Diffstat (limited to 'Command.hs')
-rw-r--r-- | Command.hs | 5 |
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 ) |