delete doBTCImport

1 files changed, 2 insertions, 22 deletions

diff --git a/kiki.hs b/kiki.hs
index 19d6a33..cf3b453 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -65,6 +65,7 @@ import Base58
 warn str = hPutStrLn stderr str
 
 
+
 {-
 RSAPrivateKey ::= SEQUENCE {
   version           Version,
@@ -479,28 +480,7 @@ bitcoinAddress network_id k = address
 --  0x4e*128+0x3d 10045
 -- 1.2.840.10045.3.1.7  --> NIST P-256
 --
-
-{-
-doBTCImport doDecrypt db (ms,subspec,content) = do
-    let fetchkey = do
-            timestamp <- now
-            let mbk = fmap discardNetworkID $ decode_btc_key timestamp content
-                discardNetworkID = snd
-            return $ maybe (Message []) id mbk
-    let error s = do
-                        warn s
-                        exitFailure
-    flip (maybe $ error "Cannot import master key.")
-         subspec $ \tag -> do
-    Message parsedkey <- fetchkey
-    flip (maybe $ return db)
-         (listToMaybe parsedkey) $ \key -> do
-    let (m0,tailms) = splitAt 1 ms
-    unless ((null tailms) || null m0)
-        $ error "Key specification is ambiguous."
-    doImportG doDecrypt db m0 tag "" key
--}
-
+    
 
 {-
 onionName :: KeyData -> (SockAddr,L.ByteString)