diff options
-rw-r--r-- | Config.hs | 2 | ||||
-rw-r--r-- | Remote/Glacier.hs | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -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 = |