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

@@ -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

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 =