From 950515be684bd77f8495b43d22dc7770ed2986c2 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Sun, 13 Oct 2019 00:56:58 -0400 Subject: fix private key output --- lib/KeyRing.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs index cd69042..5f43b4f 100644 --- a/lib/KeyRing.hs +++ b/lib/KeyRing.hs @@ -792,8 +792,8 @@ subkeysForExport subspec (KeyData key _ _ subkeys) = do data PemType = PemPublicKey | PemPrivateKey | PemCertificate pemTypeString :: PemType -> String -pemTypeString PemPublicKey = "PUBLIC KEY" -pemTypeString PemPrivateKey = "PRIVATE KEY" +pemTypeString PemPublicKey = "PUBLIC KEY" +pemTypeString PemPrivateKey = "RSA PRIVATE KEY" pemTypeString PemCertificate = "CERTIFICATE" writePEM :: PemType -> String -> String -- cgit v1.2.3