mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactoring

Browse source
This commit is contained in:
Joey Hess 2019-01-29 13:42:32 -04:00
parent 365c9767af
commit c4977ec1ff
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 8 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Remote/Helper/Special.hs
View file

@ -69,10 +69,8 @@ findSpecialRemotes s = do
gitConfigSpecialRemote :: UUID -> RemoteConfig -> [(String, String)] -> Annex ()
gitConfigSpecialRemote u c cfgs = do
forM_ cfgs $ \(k, v) ->
setConfig (remoteConfig remotename k) v
setConfig (remoteConfig remotename "uuid") (fromUUID u)
where
remotename = fromJust (M.lookup "name" c)
setConfig (remoteConfig c k) v
setConfig (remoteConfig c "uuid") (fromUUID u)
-- RetrievalVerifiableKeysSecure unless overridden by git config.
--