more experimental foo

1 files changed, 6 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index 47d9bdb..cabb721 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1592,6 +1592,12 @@ doBTCImport doDecrypt db (ms,subspec,content) = do
         $ error "Key specification is ambiguous."
     doImportG doDecrypt db m0 tag "" key
 
+doImport
+  :: Ord k =>
+     (Packet -> IO (Maybe Packet))
+     -> Map.Map k KeyData
+     -> ([Char], Maybe [Char], [k], t)
+     -> IO (Map.Map k KeyData)
 doImport doDecrypt db (fname,subspec,ms,_) = do
     let fetchkey = readKeyFromFile False "PEM" fname
     let error s = do