summaryrefslogtreecommitdiff
path: root/lib/KeyRing
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-06 17:26:54 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-06 17:26:54 -0400
commitb1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 (patch)
treeb46ce0c50abb65fdff3a80f5f072b9010c05294e /lib/KeyRing
parentea924c53e6ecb2148747353ce34ae7b0ea416d8c (diff)
Quiet down some of the warnings.
Diffstat (limited to 'lib/KeyRing')
-rw-r--r--lib/KeyRing/BuildKeyDB.hs8
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index dd204d1..9a806a3 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -673,7 +673,13 @@ merge_ db filename qs = foldl mergeit db (zip [0..] qs)
673 whatP (a,_) = concat . take 1 . words . show $ a 673 whatP (a,_) = concat . take 1 . words . show $ a
674 674
675 675
676-- insertSubkey :: (MappedPacket -> IO (KikiCondition Packet)) -> t -> KeyData -> [SignatureSubpacket] -> [Char] -> Packet -> IO (KikiCondition (KeyData, [([Char], KikiReportAction)])) 676insertSubkey :: PacketTranscoder
677 -> keykey
678 -> KeyData
679 -> [SignatureSubpacket]
680 -> InputFile
681 -> Packet
682 -> IO (KikiCondition (KeyData, [(FilePath, KikiReportAction)]))
677insertSubkey transcode kk (KeyData top topsigs uids subs) tags inputfile key0 = do 683insertSubkey transcode kk (KeyData top topsigs uids subs) tags inputfile key0 = do
678 let topcipher = symmetric_algorithm $ packet top 684 let topcipher = symmetric_algorithm $ packet top
679 tops2k = s2k $ packet top 685 tops2k = s2k $ packet top