mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2011-11-19 15:27:10 -04:00
parent 3905053a18
commit 32d9813b1d
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Command.hs
View file

@ -92,11 +92,10 @@ isBareRepo = fromRepo Git.repoIsLocalBare
- copies of the key is > or < than the numcopies setting, before running - copies of the key is > or < than the numcopies setting, before running
- the action. -} - the action. -}
autoCopies :: Key -> (Int -> Int -> Bool) -> Maybe Int -> CommandStart -> CommandStart autoCopies :: Key -> (Int -> Int -> Bool) -> Maybe Int -> CommandStart -> CommandStart
autoCopies key vs numcopiesattr a = do autoCopies key vs numcopiesattr a = Annex.getState Annex.auto >>= auto
auto <- Annex.getState Annex.auto where
if auto auto False = a
then do auto True = do
needed <- getNumCopies numcopiesattr needed <- getNumCopies numcopiesattr
(_, have) <- trustPartition UnTrusted =<< keyLocations key (_, have) <- trustPartition UnTrusted =<< keyLocations key
if length have `vs` needed then a else stop if length have `vs` needed then a else stop
else a