diff options
author | Joe Crayne <joe@jerkface.net> | 2020-05-19 22:58:05 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 22:58:05 -0400 |
commit | 919a4af08e4fe8818cde6d2cfee15ba0303ce999 (patch) | |
tree | 47dcf98a26c041061e47b63bfe35a64d1a76a5d2 | |
parent | 924ce0d71c3588e8c020a28ced9e5a0923a8da98 (diff) |
Default signature version to match key version.
-rw-r--r-- | Data/OpenPGP/Util/Sign.hs | 2 |
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 |