From 11eff640b5757048e4323433324afb96553640f0 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Sat, 12 Apr 2014 20:48:59 -0400
Subject: more experimental foo

---
 kiki.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'kiki.hs')

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
-- 
cgit v1.2.3