changelog and minor cleanup to fix mixed spaces/tabs
This commit is contained in:
parent
0732d4c8ef
commit
d77ff5dadd
3 changed files with 13 additions and 10 deletions
18
Limit.hs
18
Limit.hs
|
@ -85,20 +85,20 @@ addIn name = addLimit $ check $ if name == "." then inAnnex else inremote
|
|||
- of copies. -}
|
||||
addCopies :: String -> Annex ()
|
||||
addCopies trust_num = addLimit . check $ readnum num
|
||||
where (num, mayCheckTrust) =
|
||||
case split ":" trust_num of
|
||||
[trust, num'] -> (num', checkTrust (readtrust trust))
|
||||
[num'] -> (num', const (return True))
|
||||
_ -> bad
|
||||
readnum = maybe bad id . readish
|
||||
readtrust = maybe bad id . readTrust
|
||||
where
|
||||
(num, mayCheckTrust) = case split ":" trust_num of
|
||||
[trust, num'] -> (num', checkTrust (readtrust trust))
|
||||
[num'] -> (num', const (return True))
|
||||
_ -> bad
|
||||
readnum = maybe bad id . readish
|
||||
readtrust = maybe bad id . readTrust
|
||||
check n = Backend.lookupFile >=> handle n
|
||||
handle _ Nothing = return False
|
||||
handle n (Just (key, _)) = do
|
||||
us <- filterM mayCheckTrust =<< Remote.keyLocations key
|
||||
return $ length us >= n
|
||||
checkTrust t u = (== t) <$> lookupTrust u -- == or >=
|
||||
bad = error "bad number or trust:number for --copies"
|
||||
checkTrust t u = (== t) <$> lookupTrust u
|
||||
bad = error "bad number or trust:number for --copies"
|
||||
|
||||
{- Adds a limit to skip files not using a specified key-value backend. -}
|
||||
addInBackend :: String -> Annex ()
|
||||
|
|
|
@ -89,7 +89,7 @@ readTrust :: String -> Maybe TrustLevel
|
|||
readTrust "trusted" = Just Trusted
|
||||
readTrust "untrusted" = Just UnTrusted
|
||||
readTrust "semitrusted" = Just SemiTrusted
|
||||
readTrust "dead" = Just DeadTrusted -- NEW CASE
|
||||
readTrust "dead" = Just DeadTrusted
|
||||
readTrust _ = Nothing
|
||||
|
||||
{- The trust.log used to only list trusted repos, without a field for the
|
||||
|
|
3
debian/changelog
vendored
3
debian/changelog
vendored
|
@ -23,6 +23,9 @@ git-annex (3.20120826) UNRELEASED; urgency=low
|
|||
files and reading from checksum commands.
|
||||
* sync: Pushes the git-annex branch to remote/synced/git-annex, rather
|
||||
than directly to remote/git-annex.
|
||||
* Now supports matchig files that are present on a number of remotes
|
||||
with a speficied trust level. Example: --copies=trusted:2
|
||||
Thanks, Nicolas Pouillard
|
||||
|
||||
-- Joey Hess <joeyh@debian.org> Mon, 27 Aug 2012 13:27:39 -0400
|
||||
|
||||
|
|
Loading…
Reference in a new issue