diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-08-10 13:34:33 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2013-08-10 13:34:33 -0500 |
| commit | bdc1636bf130c46bbc5ce550d737e6dabe80a059 (patch) | |
| tree | 30e33f11f6a522d82087ead3edf2f981ec5e6bc2 | |
| parent | 7e2ea83cede38226850369a92c8023c19fba3238 (diff) | |
Remove useless extra check.
| -rw-r--r-- | Data/OpenPGP.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 7433889..3008fc2 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -1251,10 +1251,7 @@ parse_signature_subpacket 31 = | |||
| 1251 | liftM3 SignatureTargetPacket get get getRemainingByteString | 1251 | liftM3 SignatureTargetPacket get get getRemainingByteString |
| 1252 | -- EmbeddedSignaturePacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.26 | 1252 | -- EmbeddedSignaturePacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.26 |
| 1253 | parse_signature_subpacket 32 = | 1253 | parse_signature_subpacket 32 = |
| 1254 | fmap (EmbeddedSignaturePacket . forceSignature) (parse_packet 2) | 1254 | fmap EmbeddedSignaturePacket (parse_packet 2) |
| 1255 | where | ||
| 1256 | forceSignature x@(SignaturePacket {}) = x | ||
| 1257 | forceSignature _ = error "EmbeddedSignature must contain signature" | ||
| 1258 | -- Represent unsupported packets as their tag and literal bytes | 1255 | -- Represent unsupported packets as their tag and literal bytes |
| 1259 | parse_signature_subpacket tag = | 1256 | parse_signature_subpacket tag = |
| 1260 | fmap (UnsupportedSignatureSubpacket tag) getRemainingByteString | 1257 | fmap (UnsupportedSignatureSubpacket tag) getRemainingByteString |