avoid stomping on existing description when enabling a special remote

Happened with eg, gcrypt remotes.
This commit is contained in:
Joey Hess 2014-05-30 14:30:43 -04:00
parent 86b9ae15dd
commit c92d43fb7b
2 changed files with 5 additions and 3 deletions

View file

@ -100,7 +100,8 @@ setupSpecialRemote name remotetype config mcreds (mu, c) = do
- to perform IO actions to refill the pool. -}
(c', u) <- R.setup remotetype mu mcreds $
M.insert "highRandomQuality" "false" $ M.union config c
describeUUID u name
whenM (isNothing . M.lookup u <$> uuidMap) $
describeUUID u name
configSet u c'
return name