diff options
| author | Andrew Cady <d@jerkface.net> | 2019-07-03 18:51:13 -0400 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2019-07-04 09:31:49 -0400 |
| commit | f43b5352a547a7a8b8c4641db1e1e4b545531c0a (patch) | |
| tree | c9c981adc55a24e6eeb725ec5b7b1e8604fc8061 /lib/Kiki.hs | |
| parent | 2899baa5ea5ffeb05c06990a8fd3762a1693b221 (diff) | |
use a type
Diffstat (limited to 'lib/Kiki.hs')
| -rw-r--r-- | lib/Kiki.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Kiki.hs b/lib/Kiki.hs index 7bf0e3d..e67c805 100644 --- a/lib/Kiki.hs +++ b/lib/Kiki.hs | |||
| @@ -591,7 +591,7 @@ pemFromPacket k = do | |||
| 591 | qq = Base64.encode (L.unpack der) | 591 | qq = Base64.encode (L.unpack der) |
| 592 | #endif | 592 | #endif |
| 593 | return $ | 593 | return $ |
| 594 | writePEM "PUBLIC KEY" qq -- ("TODO "++show keyspec) | 594 | writePEM PemPublicKey qq -- ("TODO "++show keyspec) |
| 595 | 595 | ||
| 596 | show_pem :: String -> String -> KeyDB -> IO () | 596 | show_pem :: String -> String -> KeyDB -> IO () |
| 597 | show_pem keyspec wkgrip db = either warn putStrLn $ show_pem' keyspec wkgrip db pemFromPacket | 597 | show_pem keyspec wkgrip db = either warn putStrLn $ show_pem' keyspec wkgrip db pemFromPacket |