From f93783738f4fefc62c17ad2fd7893f6639b932e1 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 23 Jun 2015 14:37:00 -0400
Subject: Reversed eroneous polarity of delete key filter.

---
 KeyRing.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'KeyRing.hs')

diff --git a/KeyRing.hs b/KeyRing.hs
index 1ab819a..776ded3 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -2147,7 +2147,7 @@ performManipulations doDecrypt rt wk manip = do
         let kk = keykey $ packet $ keyMappedPacket kd
             kd' | kk /= topk = kd
                 | otherwise  = kd { keySubKeys = Map.filterWithKey pred $ keySubKeys kd }
-            pred k _ = k == subk
+            pred k _ = k /= subk
             ps = concat $ maybeToList $ do
                 SubKey mp sigs <- Map.lookup subk (keySubKeys kd)
                 return $ packet mp : concatMap (\(p,ts) -> packet p : Map.elems ts) sigs
-- 
cgit v1.2.3