summaryrefslogtreecommitdiff
path: root/Limit/Wanted.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-28 14:50:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-28 14:50:17 -0400
commit50c6c7406ba4c310e3567dc7d812330ef79098d2 (patch)
tree925449e6e9382646834b75968e4d3b0b2014dd06 /Limit/Wanted.hs
parenta86cd4bc8215f01ffe2ba06c63be56656d8ae7cf (diff)
add --want-get and --want-drop options
New --want-get and --want-drop options which can be used to test preferred content settings. For example, "git annex find --in . --want-drop"
Diffstat (limited to 'Limit/Wanted.hs')
-rw-r--r--Limit/Wanted.hs21
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)