diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-13 14:10:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-13 14:10:29 -0400 |
| commit | 9a378b18fb1fe1b87bc9182e964eddabb6779b86 (patch) | |
| tree | 2ec20d46fc60939657725b5e8b7375b1a65f6365 /Assistant/Pairing | |
| parent | 27869d94dfb18784bbd53c4191c2000ee37ff30c (diff) | |
webapp: Set locally paired repositories to a lower cost than other network remotes.
Diffstat (limited to 'Assistant/Pairing')
| -rw-r--r-- | Assistant/Pairing/MakeRemote.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Assistant/Pairing/MakeRemote.hs b/Assistant/Pairing/MakeRemote.hs index 24a83b43c..e4aab434d 100644 --- a/Assistant/Pairing/MakeRemote.hs +++ b/Assistant/Pairing/MakeRemote.hs @@ -12,6 +12,7 @@ import Assistant.Ssh import Assistant.Pairing import Assistant.Pairing.Network import Assistant.MakeRemote +import Config import Network.Socket import qualified Data.Text as T @@ -42,7 +43,7 @@ finishedLocalPairing msg keypair = do , "git-annex-shell -c configlist " ++ T.unpack (sshDirectory sshdata) ] Nothing - void $ makeSshRemote False sshdata + void $ makeSshRemote False sshdata (Just semiExpensiveRemoteCost) {- Mostly a straightforward conversion. Except: - * Determine the best hostname to use to contact the host. |