git-annex/Limit/Wanted.hs

{- git-annex limits by wanted status
 -
 - Copyright 2012 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Limit.Wanted where

import Annex.Common
import Annex.Wanted
import Limit
import Types.FileMatcher

addWantGet :: Annex ()
addWantGet = addLimit $ Right $ const $ checkWant $ wantGet False Nothing

addWantDrop :: Annex ()
addWantDrop = addLimit $ Right $ const $ checkWant $ wantDrop False Nothing Nothing

checkWant :: (Maybe FilePath -> Annex Bool) -> MatchInfo -> Annex Bool
checkWant a (MatchingFile fi) = a (Just $ matchFile fi)
checkWant _ (MatchingKey _) = return False
checkWant _ (MatchingInfo {}) = return False
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" 2013-10-28 18:50:17 +00:00			`{- git-annex limits by wanted status`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2012 Joey Hess <id@joeyh.name>`
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" 2013-10-28 18:50:17 +00:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Limit.Wanted where`

remove 163 lines of code without changing anything except imports 2016-01-20 20:36:33 +00:00			`import Annex.Common`
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" 2013-10-28 18:50:17 +00:00			`import Annex.Wanted`
			`import Limit`
			`import Types.FileMatcher`

			`addWantGet :: Annex ()`
fix transfers of key with no associated file Several places assumed this would not happen, and when the AssociatedFile was Nothing, did nothing. As part of this, preferred content checks pass the Key around. Note that checkMatcher is sometimes now called with Just Key and Just File. It currently constructs a FileMatcher, ignoring the Key. However, if it constructed a FileKeyMatcher, which contained both, then it might be possible to speed up parts of Limit, which currently call the somewhat expensive lookupFileKey to get the Key. I have not made this optimisation yet, because I am not sure if the key is always the same. Will need some significant checking to satisfy myself that's the case.. 2014-01-23 20:37:08 +00:00			`addWantGet = addLimit $ Right $ const $ checkWant $ wantGet False Nothing`
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" 2013-10-28 18:50:17 +00:00
			`addWantDrop :: Annex ()`
fix transfers of key with no associated file Several places assumed this would not happen, and when the AssociatedFile was Nothing, did nothing. As part of this, preferred content checks pass the Key around. Note that checkMatcher is sometimes now called with Just Key and Just File. It currently constructs a FileMatcher, ignoring the Key. However, if it constructed a FileKeyMatcher, which contained both, then it might be possible to speed up parts of Limit, which currently call the somewhat expensive lookupFileKey to get the Key. I have not made this optimisation yet, because I am not sure if the key is always the same. Will need some significant checking to satisfy myself that's the case.. 2014-01-23 20:37:08 +00:00			`addWantDrop = addLimit $ Right $ const $ checkWant $ wantDrop False Nothing Nothing`
improve matcher data type to allow matching Keys, instead of just files (no behavior changes) 2014-01-18 18:51:55 +00:00
			`checkWant :: (Maybe FilePath -> Annex Bool) -> MatchInfo -> Annex Bool`
			`checkWant a (MatchingFile fi) = a (Just $ matchFile fi)`
			`checkWant _ (MatchingKey _) = return False`
matchexpression: New plumbing command to check if a preferred content expression matches some data. 2016-01-25 20:16:18 +00:00			`checkWant _ (MatchingInfo {}) = return False`