summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorjoe <joe@jerkface.net>2016-04-29 04:41:47 -0400
committerjoe <joe@jerkface.net>2016-04-29 04:41:47 -0400
commit889aadea2d5cf18cd96ef07e6f76fd0a54fc1e67 (patch)
treed244f89ee4d9bc02cc624a027f7e5e7b07b65cdb /lib
parent73f481447a0b57fb69cd695db3c844f7751e2eec (diff)
fixed redundant bitflags packets.
Diffstat (limited to 'lib')
-rw-r--r--lib/KeyRing.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index fc21122..9c734fc 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -3121,7 +3121,9 @@ makeSig doDecrypt top fname subkey_p tags mbsig = do
3121 let mp' = mappedPacket fname new_sig 3121 let mp' = mappedPacket fname new_sig
3122 return $ KikiSuccess (mp', Map.empty) 3122 return $ KikiSuccess (mp', Map.empty)
3123 parsedkey = [packet subkey_p] 3123 parsedkey = [packet subkey_p]
3124 hashed0 = KeyFlagsPacket 3124 hashed0 | any isFlagsPacket tags = tags
3125 | otherwise
3126 = KeyFlagsPacket
3125 { certify_keys = False 3127 { certify_keys = False
3126 , sign_data = False 3128 , sign_data = False
3127 , encrypt_communication = False 3129 , encrypt_communication = False
@@ -3132,6 +3134,8 @@ makeSig doDecrypt top fname subkey_p tags mbsig = do
3132 : tags 3134 : tags
3133 -- implicitly added: 3135 -- implicitly added:
3134 -- , SignatureCreationTimePacket (fromIntegral timestamp) 3136 -- , SignatureCreationTimePacket (fromIntegral timestamp)
3137 isFlagsPacket (KeyFlagsPacket {}) = True
3138 isFlagsPacket _ = False
3135 subgrip = fingerprint (head parsedkey) 3139 subgrip = fingerprint (head parsedkey)
3136 3140
3137 back_sig <- pgpSign (Message parsedkey) 3141 back_sig <- pgpSign (Message parsedkey)