diff options
Diffstat (limited to 'Limit/Wanted.hs')
| -rw-r--r-- | Limit/Wanted.hs | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/Limit/Wanted.hs b/Limit/Wanted.hs new file mode 100644 index 000000000..ed4529dea --- /dev/null +++ b/Limit/Wanted.hs @@ -0,0 +1,21 @@ +{- git-annex limits by wanted status + - + - Copyright 2012 Joey Hess <joey@kitenet.net> + - + - Licensed under the GNU GPL version 3 or higher. + -} + +module Limit.Wanted where + +import Common.Annex +import Annex.Wanted +import Limit +import Types.FileMatcher + +addWantGet :: Annex () +addWantGet = addLimit $ Right $ const $ + \fileinfo -> wantGet False (Just $ matchFile fileinfo) + +addWantDrop :: Annex () +addWantDrop = addLimit $ Right $ const $ + \fileinfo -> wantDrop False Nothing (Just $ matchFile fileinfo) |