From 996e187f37c5b203395b93aa30d9ea6bfe0381f8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 22 Nov 2012 16:59:10 -0400
Subject: 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.)
---
 Config.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'Config.hs')

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
-- 
cgit v1.2.3