d89984b121
Sped up seeking to around twice as fast, by avoiding a pass over the worktree files when preferred content expressions of the local repo and remotes don't use include=/exclude=. Thanks to Lukey for identifying the optimisation. This commit was sponsored by Brock Spratlen on Patreon.
32 lines
872 B
Haskell
32 lines
872 B
Haskell
{- git-annex limits by wanted status
|
|
-
|
|
- Copyright 2012 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
module Limit.Wanted where
|
|
|
|
import Annex.Common
|
|
import Annex.Wanted
|
|
import Limit
|
|
import Types.FileMatcher
|
|
|
|
addWantGet :: Annex ()
|
|
addWantGet = addLimit $ Right $ MatchFiles
|
|
{ matchAction = const $ checkWant $ wantGet False Nothing
|
|
, matchNeedsFileName = False
|
|
, matchNeedsFileContent = False
|
|
}
|
|
|
|
addWantDrop :: Annex ()
|
|
addWantDrop = addLimit $ Right $ MatchFiles
|
|
{ matchAction = const $ checkWant $ wantDrop False Nothing Nothing
|
|
, matchNeedsFileName = False
|
|
, matchNeedsFileContent = False
|
|
}
|
|
|
|
checkWant :: (AssociatedFile -> Annex Bool) -> MatchInfo -> Annex Bool
|
|
checkWant a (MatchingFile fi) = a (AssociatedFile (Just $ matchFile fi))
|
|
checkWant a (MatchingKey _ af) = a af
|
|
checkWant _ (MatchingInfo {}) = return False
|