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

make local bup repos a bit more expensive than local git repos

Browse source 
does have to run bup and reassemble files, after all
This commit is contained in:
Joey Hess 2011-04-08 23:08:21 -04:00
parent 1bfd3922c0
commit c5174f0cb8
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Config.hs
View file

@ -51,6 +51,8 @@ remoteCost r def = do
cheapRemoteCost :: Int cheapRemoteCost :: Int
cheapRemoteCost = 100 cheapRemoteCost = 100
semiCheapRemoteCost :: Int
semiCheapRemoteCost = 150
expensiveRemoteCost :: Int expensiveRemoteCost :: Int
expensiveRemoteCost = 200 expensiveRemoteCost = 200

2
Remote/Bup.hs
View file

@ -39,7 +39,7 @@ gen :: Git.Repo -> UUID -> Maybe (M.Map String String) -> Annex (Remote Annex)
gen r u c = do gen r u c = do
bupremote <- getConfig r "bupremote" (error "missing bupremote") bupremote <- getConfig r "bupremote" (error "missing bupremote")
let local = ':' `notElem` bupremote let local = ':' `notElem` bupremote
cst <- remoteCost r (if local then cheapRemoteCost else expensiveRemoteCost) cst <- remoteCost r (if local then semiCheapRemoteCost else expensiveRemoteCost)
return $ this cst bupremote return $ this cst bupremote
where where