initremote: show gpg keys

1 files changed, 8 insertions, 0 deletions

diff --git a/Crypto.hs b/Crypto.hs
index 6b5d1218a..1617f5aad 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -13,6 +13,7 @@ module Crypto (
 	EncryptedCipher,
 	genCipher,
 	updateCipher,
+	describeCipher,
 	storeCipher,
 	extractCipher,
 	decryptCipher,		
@@ -95,6 +96,13 @@ updateCipher c encipher@(EncryptedCipher _ ks) = do
 	where
 		combine (KeyIds a) (KeyIds b) = KeyIds $ a ++ b
 
+describeCipher :: EncryptedCipher -> String
+describeCipher (EncryptedCipher _ (KeyIds ks)) =
+	"with gpg " ++ keys ks ++ " " ++ unwords ks
+	where
+		keys [_] = "key"
+		keys _ = "keys"
+
 {- Stores an EncryptedCipher in a remote's configuration. -}
 storeCipher :: RemoteConfig -> EncryptedCipher -> RemoteConfig
 storeCipher c (EncryptedCipher t ks) =