1 files changed, 7 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index cabb721..365562b 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1950,6 +1950,13 @@ has_good_sig wk (KeyData k sigs uids subs) = any goodsig $ Map.toList uids
         pre_ov <- signatures (Message [packet k, UserIDPacket uidstr, sig0])
         signatures_over $ verify (Message [wk]) pre_ov
 
+markForImport
+  :: Ord d =>
+     Map.Map String a
+     -> Maybe String
+     -> [Char]
+     -> Map.Map d KeyData
+     -> IO (Map.Map d KeyData)
 markForImport margs grip pubring db = maybe (return db) import_db $ wantToImport
  where wantToImport = mplus import_f importifauth_f
              where