diff options
-rw-r--r-- | lib/KeyRing.hs | 4 |
1 files 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 | |||
792 | data PemType = PemPublicKey | PemPrivateKey | PemCertificate | 792 | data PemType = PemPublicKey | PemPrivateKey | PemCertificate |
793 | 793 | ||
794 | pemTypeString :: PemType -> String | 794 | pemTypeString :: PemType -> String |
795 | pemTypeString PemPublicKey = "PUBLIC KEY" | 795 | pemTypeString PemPublicKey = "PUBLIC KEY" |
796 | pemTypeString PemPrivateKey = "PRIVATE KEY" | 796 | pemTypeString PemPrivateKey = "RSA PRIVATE KEY" |
797 | pemTypeString PemCertificate = "CERTIFICATE" | 797 | pemTypeString PemCertificate = "CERTIFICATE" |
798 | 798 | ||
799 | writePEM :: PemType -> String -> String | 799 | writePEM :: PemType -> String -> String |