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

note whether or not embedded creds are encrypted

Browse source
This commit is contained in:
Joey Hess 2014-10-21 15:15:16 -04:00
parent 9280fe4cbe
commit 42ee1c4ba5
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Creds.hs
View file

@ -24,7 +24,7 @@ import Annex.Perms
import Utility.FileMode import Utility.FileMode
import Crypto import Crypto
import Types.Remote (RemoteConfig, RemoteConfigKey) import Types.Remote (RemoteConfig, RemoteConfigKey)
import Remote.Helper.Encryptable (remoteCipher, remoteCipher', embedCreds, EncryptionIsSetup) import Remote.Helper.Encryptable (remoteCipher, remoteCipher', embedCreds, EncryptionIsSetup, extractCipher)
import Utility.Env (getEnv) import Utility.Env (getEnv)
import qualified Data.ByteString.Lazy.Char8 as L import qualified Data.ByteString.Lazy.Char8 as L
@ -182,6 +182,8 @@ includeCredsInfo c storage info = do
( ret "stored locally" ( ret "stored locally"
, ret "not available" , ret "not available"
) )
Just _ -> ret "embedded in git repository" Just _ -> case extractCipher c of
Just (EncryptedCipher _ _ _) -> ret "embedded in git repository (gpg encrypted)"
_ -> ret "embedded in git repository (not encrypted)"
where where
ret s = return $ ("creds", s) : info ret s = return $ ("creds", s) : info