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

tweak

Browse source
This commit is contained in:
Joey Hess 2011-08-18 12:26:28 -04:00
parent 8a2197adfa
commit 7cedd28ab0
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Config.hs
View file

@ -39,12 +39,9 @@ getConfig r key def = do
remoteConfig :: Git.Repo -> ConfigKey -> String remoteConfig :: Git.Repo -> ConfigKey -> String
remoteConfig r key = "remote." ++ fromMaybe "" (Git.repoRemoteName r) ++ ".annex-" ++ key remoteConfig r key = "remote." ++ fromMaybe "" (Git.repoRemoteName r) ++ ".annex-" ++ key
{- Calculates cost for a remote. {- Calculates cost for a remote. Either the default, or as configured
- - by remote.<name>.annex-cost, or if remote.<name>.annex-cost-command
- The default cost is 100 for local repositories, and 200 for remote - is set and prints a number, that is used.
- repositories; it can also be configured by remote.<name>.annex-cost,
- or if remote.<name>.annex-cost-command is set and prints a number, that
- is used.
-} -}
remoteCost :: Git.Repo -> Int -> Annex Int remoteCost :: Git.Repo -> Int -> Annex Int
remoteCost r def = do remoteCost r def = do