webapp: Set locally paired repositories to a lower cost than other network remotes.
This commit is contained in:
parent
02facde154
commit
9b657a2ccc
7 changed files with 28 additions and 8 deletions
|
@ -279,7 +279,7 @@ makeSsh' rsync setup sshdata keypair =
|
|||
|
||||
makeSshRepo :: Bool -> (Remote -> Handler ()) -> SshData -> Handler RepHtml
|
||||
makeSshRepo forcersync setup sshdata = do
|
||||
r <- liftAssistant $ makeSshRemote forcersync sshdata
|
||||
r <- liftAssistant $ makeSshRemote forcersync sshdata Nothing
|
||||
setup r
|
||||
redirect $ EditNewCloudRepositoryR $ Remote.uuid r
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue