diff options
author | Joe Crayne <joe@jerkface.net> | 2020-05-06 04:03:59 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2020-05-06 11:52:18 -0400 |
commit | 9058b14426d159651df10e47a26f81110ed89c02 (patch) | |
tree | f4e5ebfb42a1b5bdbab820d8ec00b4292992eaf9 /lib/KeyRing | |
parent | 6699e70f9197ea901b9f8ad5ac0818682e335cff (diff) |
Avoid making SHA1 signatures.
Diffstat (limited to 'lib/KeyRing')
-rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs index 3fe1d17..44952de 100644 --- a/lib/KeyRing/BuildKeyDB.hs +++ b/lib/KeyRing/BuildKeyDB.hs | |||
@@ -688,7 +688,7 @@ insertSubkey transcode kk (KeyData top topsigs uids subs) tags inputfile key0 = | |||
688 | try wkun' $ \wkun -> do | 688 | try wkun' $ \wkun -> do |
689 | sig_ov <- pgpSign (Message [wkun]) | 689 | sig_ov <- pgpSign (Message [wkun]) |
690 | tor_ov | 690 | tor_ov |
691 | SHA1 | 691 | SHA256 |
692 | (show $ fingerprint wkun) | 692 | (show $ fingerprint wkun) |
693 | flip (maybe $ return $ KikiSuccess (uids,[(fname, WarnFailedToMakeSignature)])) | 693 | flip (maybe $ return $ KikiSuccess (uids,[(fname, WarnFailedToMakeSignature)])) |
694 | (sig_ov >>= listToMaybe . signatures_over) | 694 | (sig_ov >>= listToMaybe . signatures_over) |