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

show in info whether a remote uses hybrid encryption or not

Browse source
This commit is contained in:
Joey Hess 2014-10-22 14:39:59 -04:00
parent 25574bead1
commit 5c15d6d3cc
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
Remote/Helper/Encryptable.hs
View file

@ -163,5 +163,10 @@ describeEncryption :: RemoteConfig -> String
describeEncryption c = case extractCipher c of
Nothing -> "not encrypted"
(Just (SharedCipher _)) -> "encrypted (encryption key stored in git repository)"
(Just (EncryptedCipher _ _ (KeyIds { keyIds = ks }))) ->
"encrypted (to gpg keys: " ++ unwords ks ++ ")"
(Just (EncryptedCipher _ v (KeyIds { keyIds = ks }))) -> unwords $ catMaybes
[ Just "encrypted (to gpg keys:"
, Just (unwords ks ++ ")")
, case v of
PubKey -> Nothing
Hybrid -> Just "(hybrid mode)"
]