diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-08-10 23:23:15 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-08-10 23:23:15 -0500 |
| commit | eba7e4fdce3de6622b4ec3862b405b0acd016377 (patch) | |
| tree | bbbc4329efa55a883cc87db83a208edd91fd353a | |
| parent | 7b504d9a660d2face47972e0c4b5638ebc9454a0 (diff) | |
Preserve topkey for all subkeys
| -rw-r--r-- | Data/OpenPGP.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 7995d89..1f0ff34 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -948,10 +948,10 @@ paired_sigs _ (p@(SecretKeyPacket {is_subkey = False}):ps) = | |||
| 948 | paired_sigs (Just p) (dropWhile isSignaturePacket ps) | 948 | paired_sigs (Just p) (dropWhile isSignaturePacket ps) |
| 949 | paired_sigs (Just k) (p@(PublicKeyPacket {is_subkey = True}):ps) = | 949 | paired_sigs (Just k) (p@(PublicKeyPacket {is_subkey = True}):ps) = |
| 950 | SubkeySignature k p (takeWhile isSignaturePacket ps) : | 950 | SubkeySignature k p (takeWhile isSignaturePacket ps) : |
| 951 | paired_sigs (Just p) (dropWhile isSignaturePacket ps) | 951 | paired_sigs (Just k) (dropWhile isSignaturePacket ps) |
| 952 | paired_sigs (Just k) (p@(SecretKeyPacket {is_subkey = True}):ps) = | 952 | paired_sigs (Just k) (p@(SecretKeyPacket {is_subkey = True}):ps) = |
| 953 | SubkeySignature k p (takeWhile isSignaturePacket ps) : | 953 | SubkeySignature k p (takeWhile isSignaturePacket ps) : |
| 954 | paired_sigs (Just p) (dropWhile isSignaturePacket ps) | 954 | paired_sigs (Just k) (dropWhile isSignaturePacket ps) |
| 955 | paired_sigs (Just k) (p@(UserIDPacket {}):ps) = | 955 | paired_sigs (Just k) (p@(UserIDPacket {}):ps) = |
| 956 | CertificationSignature k p (takeWhile isSignaturePacket ps) : | 956 | CertificationSignature k p (takeWhile isSignaturePacket ps) : |
| 957 | paired_sigs (Just k) (dropWhile isSignaturePacket ps) | 957 | paired_sigs (Just k) (dropWhile isSignaturePacket ps) |