diff options
author | Joe Crayne <joe@jerkface.net> | 2019-07-06 17:26:54 -0400 |
---|---|---|
committer | Joe Crayne <joe@jerkface.net> | 2019-07-06 17:26:54 -0400 |
commit | b1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 (patch) | |
tree | b46ce0c50abb65fdff3a80f5f072b9010c05294e /lib/KeyRing | |
parent | ea924c53e6ecb2148747353ce34ae7b0ea416d8c (diff) |
Quiet down some of the warnings.
Diffstat (limited to 'lib/KeyRing')
-rw-r--r-- | lib/KeyRing/BuildKeyDB.hs | 8 |
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)])) | 676 | insertSubkey :: PacketTranscoder |
677 | -> keykey | ||
678 | -> KeyData | ||
679 | -> [SignatureSubpacket] | ||
680 | -> InputFile | ||
681 | -> Packet | ||
682 | -> IO (KikiCondition (KeyData, [(FilePath, KikiReportAction)])) | ||
677 | insertSubkey transcode kk (KeyData top topsigs uids subs) tags inputfile key0 = do | 683 | insertSubkey 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 |