diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-03-16 12:32:07 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-03-16 12:32:07 -0500 |
| commit | 7e2ea83cede38226850369a92c8023c19fba3238 (patch) | |
| tree | 55b003ec1316828b38c52314a7a83b2a366e9d81 | |
| parent | 154c6a0826f5c98e8cbc43b16dabf07c362f4390 (diff) | |
Fix extraction of UserID signatures
| -rw-r--r-- | Data/OpenPGP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 092e6ff..7433889 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -954,7 +954,7 @@ paired_sigs (Just k) (p@(SecretKeyPacket {is_subkey = True}):ps) = | |||
| 954 | paired_sigs (Just p) (dropWhile isSignaturePacket ps) | 954 | paired_sigs (Just p) (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 p) (dropWhile isSignaturePacket ps) | 957 | paired_sigs (Just k) (dropWhile isSignaturePacket ps) |
| 958 | paired_sigs k (_:ps) = paired_sigs k ps | 958 | paired_sigs k (_:ps) = paired_sigs k ps |
| 959 | 959 | ||
| 960 | -- | <http://tools.ietf.org/html/rfc4880#section-3.2> | 960 | -- | <http://tools.ietf.org/html/rfc4880#section-3.2> |