From f43b5352a547a7a8b8c4641db1e1e4b545531c0a Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Wed, 3 Jul 2019 18:51:13 -0400
Subject: use a type

---
 lib/Kiki.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Kiki.hs')

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
         qq  = Base64.encode (L.unpack der)
 #endif
     return $
-        writePEM "PUBLIC KEY" qq -- ("TODO "++show keyspec)
+        writePEM PemPublicKey qq -- ("TODO "++show keyspec)
 
 show_pem :: String -> String -> KeyDB -> IO ()
 show_pem keyspec wkgrip db = either warn putStrLn $ show_pem' keyspec wkgrip db pemFromPacket
-- 
cgit v1.2.3