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

webapp: Fix creation of rsync.net repositories.

Browse source
This commit is contained in:
Joey Hess 2012-10-31 13:58:31 -04:00
parent f460a2a2a8
commit 7fe077ec24
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Configurators/Ssh.hs
View file

@ -310,7 +310,8 @@ makeRsyncNet sshinput setup = do
keypair <- liftIO $ genSshKeyPair
sshdata <- liftIO $ setupSshKeyPair keypair $
(mkSshData sshinput)
{ sshRepoName = "rsync.net"
{ sshRepoName = genSshRepoName "rsync.net"
(maybe "" T.unpack $ directory sshinput)
, needsPubKey = True
, rsyncOnly = True
}