more progress on writeRingKeys

1 files changed, 0 insertions, 12 deletions

diff --git a/kiki.hs b/kiki.hs
index 41e6e6b..66e3e4f 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -766,18 +766,6 @@ flattenKeys isPublic db = Message $ concatMap (map packet . flattenTop "" isPubl
                   isSecret _          = False
 
 
-ifSecret (SecretKeyPacket {}) t f = t
-ifSecret _                    t f = f
-
-showPacket :: Packet -> String
-showPacket p | isKey p   = (if is_subkey p 
-                              then showPacket0 p
-                              else ifSecret p "----Secret-----" "----Public-----")
-                           ++ " "++show (key_algorithm p)++" "++fingerprint p
-             | isUserID p = showPacket0 p ++ " " ++ show (uidkey p)
-             | otherwise = showPacket0 p
-showPacket0 p = concat . take 1 $ words (show p)
-
 writeOutKeyrings :: Map.Map FilePath t -> KeyDB -> IO ()
 writeOutKeyrings lkmap db = do
     let ks = Map.elems db