summaryrefslogtreecommitdiff
path: root/lib/KeyRing
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2020-05-06 04:03:59 -0400
committerJoe Crayne <joe@jerkface.net>2020-05-06 11:52:18 -0400
commit9058b14426d159651df10e47a26f81110ed89c02 (patch)
treef4e5ebfb42a1b5bdbab820d8ec00b4292992eaf9 /lib/KeyRing
parent6699e70f9197ea901b9f8ad5ac0818682e335cff (diff)
Avoid making SHA1 signatures.
Diffstat (limited to 'lib/KeyRing')
-rw-r--r--lib/KeyRing/BuildKeyDB.hs2
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)