summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2020-05-19 22:58:05 -0400
committerJoe Crayne <joe@jerkface.net>2020-05-19 22:58:05 -0400
commit919a4af08e4fe8818cde6d2cfee15ba0303ce999 (patch)
tree47dcf98a26c041061e47b63bfe35a64d1a76a5d2
parent924ce0d71c3588e8c020a28ced9e5a0923a8da98 (diff)
Default signature version to match key version.
-rw-r--r--Data/OpenPGP/Util/Sign.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index 1af6053..5fb926f 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -134,7 +134,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
134 (OpenPGP.hash_head s) -- FIXME: This is not right. 134 (OpenPGP.hash_head s) -- FIXME: This is not right.
135 (map OpenPGP.MPI final) 135 (map OpenPGP.MPI final)
136 findSigOrDefault Nothing = OpenPGP.signaturePacket 136 findSigOrDefault Nothing = OpenPGP.signaturePacket
137 4 137 (OpenPGP.version k)
138 defaultStype 138 defaultStype
139 (OpenPGP.key_algorithm k) -- force to algo of key 139 (OpenPGP.key_algorithm k) -- force to algo of key
140 hsh 140 hsh