diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 6 |
1 files changed, 6 insertions, 0 deletions
@@ -1592,6 +1592,12 @@ doBTCImport doDecrypt db (ms,subspec,content) = do | |||
1592 | $ error "Key specification is ambiguous." | 1592 | $ error "Key specification is ambiguous." |
1593 | doImportG doDecrypt db m0 tag "" key | 1593 | doImportG doDecrypt db m0 tag "" key |
1594 | 1594 | ||
1595 | doImport | ||
1596 | :: Ord k => | ||
1597 | (Packet -> IO (Maybe Packet)) | ||
1598 | -> Map.Map k KeyData | ||
1599 | -> ([Char], Maybe [Char], [k], t) | ||
1600 | -> IO (Map.Map k KeyData) | ||
1595 | doImport doDecrypt db (fname,subspec,ms,_) = do | 1601 | doImport doDecrypt db (fname,subspec,ms,_) = do |
1596 | let fetchkey = readKeyFromFile False "PEM" fname | 1602 | let fetchkey = readKeyFromFile False "PEM" fname |
1597 | let error s = do | 1603 | let error s = do |