From 46071a24358cbe1b582f0cf70c52da5c0fadba88 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 10 Oct 2019 12:37:47 -0400 Subject: [PATCH] use storeUUIDIn --- Remote/Helper/Special.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Remote/Helper/Special.hs b/Remote/Helper/Special.hs index 5325fc46a2..52be7e74db 100644 --- a/Remote/Helper/Special.hs +++ b/Remote/Helper/Special.hs @@ -38,6 +38,7 @@ import qualified Annex import Types.StoreRetrieve import Types.Remote import Crypto +import Annex.UUID import Config import Config.Cost import Utility.Metered @@ -70,7 +71,7 @@ gitConfigSpecialRemote :: UUID -> RemoteConfig -> [(String, String)] -> Annex () gitConfigSpecialRemote u c cfgs = do forM_ cfgs $ \(k, v) -> setConfig (remoteConfig c k) v - setConfig (remoteConfig c "uuid") (fromUUID u) + storeUUIDIn (remoteConfig c "uuid") u -- RetrievalVerifiableKeysSecure unless overridden by git config. --