diff options
Diffstat (limited to 'KeyRing.hs')
-rw-r--r-- | KeyRing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2147,7 +2147,7 @@ performManipulations doDecrypt rt wk manip = do | |||
2147 | let kk = keykey $ packet $ keyMappedPacket kd | 2147 | let kk = keykey $ packet $ keyMappedPacket kd |
2148 | kd' | kk /= topk = kd | 2148 | kd' | kk /= topk = kd |
2149 | | otherwise = kd { keySubKeys = Map.filterWithKey pred $ keySubKeys kd } | 2149 | | otherwise = kd { keySubKeys = Map.filterWithKey pred $ keySubKeys kd } |
2150 | pred k _ = k == subk | 2150 | pred k _ = k /= subk |
2151 | ps = concat $ maybeToList $ do | 2151 | ps = concat $ maybeToList $ do |
2152 | SubKey mp sigs <- Map.lookup subk (keySubKeys kd) | 2152 | SubKey mp sigs <- Map.lookup subk (keySubKeys kd) |
2153 | return $ packet mp : concatMap (\(p,ts) -> packet p : Map.elems ts) sigs | 2153 | return $ packet mp : concatMap (\(p,ts) -> packet p : Map.elems ts) sigs |