summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Config.hs2
-rw-r--r--Remote/Glacier.hs2
2 files changed, 3 insertions, 1 deletions
diff --git a/Config.hs b/Config.hs
index 10777303a..11b5f4c93 100644
--- a/Config.hs
+++ b/Config.hs
@@ -65,6 +65,8 @@ semiCheapRemoteCost :: Int
semiCheapRemoteCost = 110
expensiveRemoteCost :: Int
expensiveRemoteCost = 200
+veryExpensiveRemoteCost :: Int
+veryExpensiveRemoteCost = 1000
{- Adjusts a remote's cost to reflect it being encrypted. -}
encryptedRemoteCostAdj :: Int
diff --git a/Remote/Glacier.hs b/Remote/Glacier.hs
index d886d89e3..8a54b542e 100644
--- a/Remote/Glacier.hs
+++ b/Remote/Glacier.hs
@@ -37,7 +37,7 @@ remote = RemoteType {
gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote
gen r u c = do
- cst <- remoteCost r expensiveRemoteCost
+ cst <- remoteCost r veryExpensiveRemoteCost
return $ gen' r u c cst
gen' :: Git.Repo -> UUID -> Maybe RemoteConfig -> Int -> Remote
gen' r u c cst =