From eaebc278765f0989092be6700cd70e9bec057b52 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 21 Oct 2014 15:15:16 -0400 Subject: note whether or not embedded creds are encrypted --- Creds.hs | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'Creds.hs') diff --git a/Creds.hs b/Creds.hs index 64ff3ffeb..76d610e57 100644 --- a/Creds.hs +++ b/Creds.hs @@ -24,7 +24,7 @@ import Annex.Perms import Utility.FileMode import Crypto 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 qualified Data.ByteString.Lazy.Char8 as L @@ -182,6 +182,8 @@ includeCredsInfo c storage info = do ( ret "stored locally" , 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 ret s = return $ ("creds", s) : info -- cgit v1.2.3