diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-11-22 16:59:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-11-22 16:59:10 -0400 |
| commit | 996e187f37c5b203395b93aa30d9ea6bfe0381f8 (patch) | |
| tree | d3581ef8efe542aa4ae8d4ac95b592f352c4792f | |
| parent | 953edfb41218897c7597460211514e15df02aafb (diff) | |
adjust glacier remote cost to 1000
Higher than any other remote, this is mostly due to the long retrieval
time, so it'd make sense to get a file from nearly any other remote.
(Unless it's behind a very slow connection.)
| -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 = |