webapp: Fix creation of rsync.net repositories.
This commit is contained in:
parent
f460a2a2a8
commit
7fe077ec24
2 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue