summaryrefslogtreecommitdiff
path: root/Remote/Glacier.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-11-22 16:59:10 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-11-22 16:59:10 -0400
commit996e187f37c5b203395b93aa30d9ea6bfe0381f8 (patch)
treed3581ef8efe542aa4ae8d4ac95b592f352c4792f /Remote/Glacier.hs
parent953edfb41218897c7597460211514e15df02aafb (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.)
Diffstat (limited to 'Remote/Glacier.hs')
-rw-r--r--Remote/Glacier.hs2
1 files changed, 1 insertions, 1 deletions
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 =