summaryrefslogtreecommitdiff
path: root/Remote/Bup.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-04-08 23:08:21 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-04-08 23:08:21 -0400
commitc5174f0cb8a234dbd3656f108194a4e3dec6fec5 (patch)
tree57f0da938607e3cee3d36e490dfd2e21169ae642 /Remote/Bup.hs
parent1bfd3922c06e6a6982a6ec78ea21432652e471d9 (diff)
make local bup repos a bit more expensive than local git repos
does have to run bup and reassemble files, after all
Diffstat (limited to 'Remote/Bup.hs')
-rw-r--r--Remote/Bup.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/Bup.hs b/Remote/Bup.hs
index 6a7609aad..8d92792e1 100644
--- a/Remote/Bup.hs
+++ b/Remote/Bup.hs
@@ -39,7 +39,7 @@ gen :: Git.Repo -> UUID -> Maybe (M.Map String String) -> Annex (Remote Annex)
gen r u c = do
bupremote <- getConfig r "bupremote" (error "missing 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
where