diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-10 19:09:30 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-10 19:09:30 -0500 |
| commit | f41a366e8d0070a0d3bc23c55987632750ec6761 (patch) | |
| tree | 15aaa47a982cf3e512053e39542cf5d1554b210d /Data | |
| parent | c6d2154588ac13374d570f498dc5c8dc7c5f4036 (diff) | |
fix signature subpacket parsing
Diffstat (limited to 'Data')
| -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 fd89cfb..c66953e 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -537,7 +537,7 @@ instance Binary SignatureSubpacket where | |||
| 537 | return len | 537 | return len |
| 538 | tag <- get :: Get Word8 | 538 | tag <- get :: Get Word8 |
| 539 | -- This forces the whole packet to be consumed | 539 | -- This forces the whole packet to be consumed |
| 540 | packet <- getLazyByteString len | 540 | packet <- getLazyByteString (len-1) |
| 541 | return $ runGet (parse_signature_subpacket tag) packet | 541 | return $ runGet (parse_signature_subpacket tag) packet |
| 542 | 542 | ||
| 543 | -- | Find the keyid that issued a SignaturePacket | 543 | -- | Find the keyid that issued a SignaturePacket |