webapp: Fix creation of rsync.net repositories.

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

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
}