From 15284e1696e9c881a1824ea3be45c65a92369e05 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 30 May 2014 14:30:43 -0400 Subject: avoid stomping on existing description when enabling a special remote Happened with eg, gcrypt remotes. --- Assistant/MakeRemote.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Assistant/MakeRemote.hs') diff --git a/Assistant/MakeRemote.hs b/Assistant/MakeRemote.hs index 349d4af9c..41be3275c 100644 --- a/Assistant/MakeRemote.hs +++ b/Assistant/MakeRemote.hs @@ -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 -- cgit v1.2.3