mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

adjust glacier remote cost to 1000

Browse source 
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.)
This commit is contained in:
Joey Hess 2012-11-22 16:59:10 -04:00
parent f53496830a
commit da6c738dad
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Config.hs
View file

@ -65,6 +65,8 @@ semiCheapRemoteCost :: Int
semiCheapRemoteCost = 110 semiCheapRemoteCost = 110
expensiveRemoteCost :: Int expensiveRemoteCost :: Int
expensiveRemoteCost = 200 expensiveRemoteCost = 200
veryExpensiveRemoteCost :: Int
veryExpensiveRemoteCost = 1000
{- Adjusts a remote's cost to reflect it being encrypted. -} {- Adjusts a remote's cost to reflect it being encrypted. -}
encryptedRemoteCostAdj :: Int encryptedRemoteCostAdj :: Int

2
Remote/Glacier.hs
View file

@ -37,7 +37,7 @@ remote = RemoteType {
gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote gen :: Git.Repo -> UUID -> Maybe RemoteConfig -> Annex Remote
gen r u c = do gen r u c = do
cst <- remoteCost r expensiveRemoteCost cst <- remoteCost r veryExpensiveRemoteCost
return $ gen' r u c cst return $ gen' r u c cst
gen' :: Git.Repo -> UUID -> Maybe RemoteConfig -> Int -> Remote gen' :: Git.Repo -> UUID -> Maybe RemoteConfig -> Int -> Remote
gen' r u c cst = gen' r u c cst =