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

set cost for local bup repos to cheap

Browse source
This commit is contained in:
Joey Hess 2011-04-08 21:37:59 -04:00
parent c253d07a82
commit 1bfd3922c0
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
Remote/Bup.hs
View file

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