Implemented command to delete subkeys

1 files changed, 2 insertions, 2 deletions

diff --git a/KeyRing.hs b/KeyRing.hs
index 14772d8..b885805 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -626,7 +626,7 @@ data KikiReportAction =
         | UnableToExport KeyAlgorithm String
         | FailedFileWrite
         | HostsDiff ByteString
-        | DeletedPacket Packet
+        | DeletedPacket String
  deriving Show
 
 uncamel :: String -> String
@@ -2147,7 +2147,7 @@ performManipulations doDecrypt rt wk manip = do
                 return $ packet mp : concatMap (\(p,ts) -> packet p : Map.elems ts) sigs
             ctx = InputFileContext (rtSecring rt) (rtPubring rt)
             rings = [HomeSec, HomePub] >>= resolveInputFile ctx
-        return $ KikiSuccess (kd' , report ++ [ (f,DeletedPacket p) | f <- rings, p <- ps ])
+        return $ KikiSuccess (kd' , report ++ [ (f,DeletedPacket $ showPacket p) | f <- rings, p <- ps ])
 
 initializeMissingPEMFiles ::
     KeyRingOperation