diff options
Diffstat (limited to 'lib/KeyRing/BuildKeyDB.hs')
-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 |