refactoring
This commit is contained in:
parent
365c9767af
commit
c4977ec1ff
2 changed files with 8 additions and 5 deletions
|
@ -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.
|
||||
--
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue