3518c586cf
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..
29 lines
1,011 B
Haskell
29 lines
1,011 B
Haskell
{- git-annex checking whether content is wanted
|
|
-
|
|
- Copyright 2012 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Annex.Wanted where
|
|
|
|
import Common.Annex
|
|
import Logs.PreferredContent
|
|
import Annex.UUID
|
|
|
|
import qualified Data.Set as S
|
|
|
|
{- Check if a file is preferred content for the local repository. -}
|
|
wantGet :: Bool -> Maybe Key -> AssociatedFile -> Annex Bool
|
|
wantGet def key file = isPreferredContent Nothing S.empty key file def
|
|
|
|
{- Check if a file is preferred content for a remote. -}
|
|
wantSend :: Bool -> Maybe Key -> AssociatedFile -> UUID -> Annex Bool
|
|
wantSend def key file to = isPreferredContent (Just to) S.empty key file def
|
|
|
|
{- Check if a file can be dropped, maybe from a remote.
|
|
- Don't drop files that are preferred content. -}
|
|
wantDrop :: Bool -> Maybe UUID -> Maybe Key -> AssociatedFile -> Annex Bool
|
|
wantDrop def from key file = do
|
|
u <- maybe getUUID (return . id) from
|
|
not <$> isPreferredContent (Just u) (S.singleton u) key file def
|