diff options
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 144b236a4..3f3823664 100644 --- a/Assistant/Pairing/MakeRemote.hs +++ b/Assistant/Pairing/MakeRemote.hs @@ -15,6 +15,7 @@ import Assistant.MakeRemote import Assistant.Sync import Config.Cost import Config +import qualified Types.Remote as Remote import Network.Socket import qualified Data.Text as T @@ -46,7 +47,7 @@ finishedLocalPairing msg keypair = do ] Nothing r <- liftAnnex $ addRemote $ makeSshRemote sshdata - liftAnnex $ setRemoteCost r semiExpensiveRemoteCost + liftAnnex $ setRemoteCost (Remote.repo r) semiExpensiveRemoteCost syncRemote r {- Mostly a straightforward conversion. Except: |