From 4525b9f9a90f87fb17174ba594abbcff3df0a5d6 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 23 Jun 2015 12:55:43 -0400
Subject: Implemented command to delete subkeys

---
 KeyRing.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'KeyRing.hs')

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
-- 
cgit v1.2.3