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

4
Assistant/Gpg.hs
View file

@ -9,7 +9,7 @@ module Assistant.Gpg where
import Utility.Gpg
import Utility.UserInfo
import Types.Remote (RemoteConfigKey)
import Types.Remote (RemoteConfigField)
import qualified Data.Map as M
import Control.Applicative
@ -30,7 +30,7 @@ data EnableEncryption = HybridEncryption | SharedEncryption | NoEncryption
deriving (Eq)
{- Generates Remote configuration for encryption. -}
configureEncryption :: EnableEncryption -> (RemoteConfigKey, String)
configureEncryption :: EnableEncryption -> (RemoteConfigField, String)
configureEncryption SharedEncryption = ("encryption", "shared")
configureEncryption NoEncryption = ("encryption", "none")
configureEncryption HybridEncryption = ("encryption", "hybrid")