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
         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