From b1ae1ecdc9d1f16134ea40b07a6cedcc26a94db8 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 6 Jul 2019 17:26:54 -0400
Subject: Quiet down some of the warnings.

---
 lib/KeyRing/BuildKeyDB.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/KeyRing/BuildKeyDB.hs')

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)
     whatP (a,_) = concat . take 1 . words . show $ a
 
 
--- insertSubkey :: (MappedPacket -> IO (KikiCondition Packet)) -> t -> KeyData -> [SignatureSubpacket] -> [Char] -> Packet -> IO (KikiCondition (KeyData, [([Char], KikiReportAction)]))
+insertSubkey :: PacketTranscoder
+                      -> keykey
+                      -> KeyData
+                      -> [SignatureSubpacket]
+                      -> InputFile
+                      -> Packet
+                      -> IO (KikiCondition (KeyData, [(FilePath, KikiReportAction)]))
 insertSubkey transcode kk (KeyData top topsigs uids subs) tags inputfile key0 = do
     let topcipher = symmetric_algorithm $ packet top
         tops2k    = s2k $ packet top
-- 
cgit v1.2.3