fix UI when enabling existing gcrypt repo

avoid editing repo for same reasons as in
52601eb606

avoid stomping on its description, even though no description exists until
after syncing is complete
This commit is contained in:
Joey Hess 2014-05-30 14:49:25 -04:00
parent c92d43fb7b
commit 4f7f61e46e
2 changed files with 13 additions and 8 deletions

View file

@ -475,10 +475,11 @@ checkExistingGCrypt sshdata nope = checkGCryptRepoEncryption repourl nope nope $
{- Enables an existing gcrypt special remote. -}
enableGCrypt :: SshData -> RemoteName -> Handler Html
enableGCrypt sshdata reponame =
setupCloudRemote TransferGroup Nothing $
enableSpecialRemote reponame GCrypt.remote Nothing $ M.fromList
[("gitrepo", genSshUrl sshdata)]
enableGCrypt sshdata reponame = setupRemote postsetup Nothing Nothing mk
where
mk = enableSpecialRemote reponame GCrypt.remote Nothing $
M.fromList [("gitrepo", genSshUrl sshdata)]
postsetup _ = redirect DashboardR
{- Combining with a gcrypt repository that may not be
- known in remote.log, so probe the gcrypt repo. -}