diff options
| author | Andrew Cady <d@jerkface.net> | 2019-10-13 00:56:58 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-10-13 00:56:58 -0400 |
| commit | 950515be684bd77f8495b43d22dc7770ed2986c2 (patch) | |
| tree | db9e9dc521f79b7f536444087063ce290c046e70 | |
| parent | 41d34947ca8c26c4521058e55d389570b255582a (diff) | |
fix private key output
| -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 |