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

rename RemoteConfigKey to RemoteConfigField

Browse source 
And some associated renames.
I was going to have some values named fooKeyKey otherwise..
This commit is contained in:
Joey Hess 2019-10-10 15:31:10 -04:00
parent d1130ea04a
commit 59908586f4
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
11 changed files with 39 additions and 39 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/RenameRemote.hs
View file

@ -9,7 +9,7 @@ module Command.RenameRemote where
import Command
import qualified Annex.SpecialRemote
import Annex.SpecialRemote.Config (nameKey, sameasNameKey)
import Annex.SpecialRemote.Config (nameField, sameasNameField)
import qualified Logs.Remote
import qualified Types.Remote as R
import qualified Remote
@ -47,9 +47,9 @@ start _ = giveup "Specify an old name (or uuid or description) and a new name."
perform :: UUID -> R.RemoteConfig -> String -> CommandPerform
perform u cfg newname = do
let namekey = case M.lookup sameasNameKey cfg of
Just _ -> sameasNameKey
Nothing -> nameKey
Logs.Remote.configSet u (M.insert namekey newname cfg)
let namefield = case M.lookup sameasNameField cfg of
Just _ -> sameasNameField
Nothing -> nameField
Logs.Remote.configSet u (M.insert namefield newname cfg)
next $ return True