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.)

1 files changed, 2 insertions, 0 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