From 275ed12ff3682622dfb5cffbb6a52056fa8bf49b Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Fri, 27 Apr 2012 17:59:12 -0500 Subject: SignerUserIDPacket --- Data/OpenPGP.hs | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Data') diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 28a0941..e3a0a54 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs @@ -720,6 +720,7 @@ data SignatureSubpacket = authentication::Bool, group_key::Bool } | + SignerUserIDPacket String | UnsupportedSignatureSubpacket Word8 B.ByteString deriving (Show, Read, Eq) @@ -813,6 +814,8 @@ put_signature_subpacket (KeyFlagsPacket certify sign encryptC encryptS split aut where flag x True = x flag _ False = 0x0 +put_signature_subpacket (SignerUserIDPacket userid) = + (B.fromString userid, 28) put_signature_subpacket (UnsupportedSignatureSubpacket tag bytes) = (bytes, tag) @@ -909,6 +912,9 @@ parse_signature_subpacket 27 = do authentication = flag1 .&. 0x20 == 0x20, group_key = flag1 .&. 0x80 == 0x80 } +-- SignerUserIDPacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.22 +parse_signature_subpacket 28 = + fmap (SignerUserIDPacket . B.toString) getRemainingByteString -- Represent unsupported packets as their tag and literal bytes parse_signature_subpacket tag = fmap (UnsupportedSignatureSubpacket tag) getRemainingByteString -- cgit v1.2.3