1 files changed, 0 insertions, 37 deletions

diff --git a/kiki.hs b/kiki.hs
index b23e304..e901625 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -91,9 +91,6 @@ secp256k1_id = 0x2b8104000a
 
 warn str = hPutStrLn stderr str
 
-unprefix c spec = if null (snd p) then swap p else (fst p, tail (snd p))
- where p = break (==c) spec
-
 
 {-
 RSAPrivateKey ::= SEQUENCE {
@@ -653,14 +650,6 @@ getPassphrase cmd =
 
 #define HOMEOPTION (def &= explicit &= name "homedir" &= typDir )
 
-is40digitHex xs = ys == xs && length ys==40
-  where
-    ys = filter ishex xs
-    ishex c | '0' <= c && c <= '9' = True
-            | 'A' <= c && c <= 'F' = True
-            | 'a' <= c && c <= 'f' = True
-    ishex c = False
-
 flattenKeys :: Bool -> KeyDB -> Message
 flattenKeys isPublic db = Message $ concatMap (map packet . flattenTop "" isPublic . snd) (prefilter . Map.assocs $ db)
  where
@@ -864,29 +853,6 @@ show_wip keyspec wkgrip db = do
     let nwb = maybe 0x80 CryptoCoins.secretByteFromName $ snd s
     putStrLn $ walletImportFormat nwb k
 
-parseSpec :: String -> String -> (KeySpec,Maybe String)
-parseSpec grip spec = (topspec,subspec)
- where
-     (topspec0,subspec0) = unprefix '/' spec
-     (toptyp,top) = unprefix ':' topspec0
-     (subtyp,sub) = unprefix ':' subspec0
-     topspec = case () of
-                    _ | null top && or [ subtyp=="fp"
-                                       , null subtyp && is40digitHex sub
-                                       ]
-                                 -> KeyGrip sub
-                    _ | null top && null grip -> KeyUidMatch sub
-                    _ | null top -> KeyGrip grip
-                    _ | toptyp=="fp" || (null toptyp && is40digitHex top)
-                                 -> {- trace "using top" $ -} KeyGrip top
-                    _ | toptyp=="u" -> KeyUidMatch top
-                    _ | otherwise -> KeyUidMatch top
-     subspec = case subtyp of
-                "t" -> Just sub
-                "fp" | top=="" -> Nothing
-                "" | top=="" && is40digitHex sub -> Nothing
-                "" -> listToMaybe sub >> Just sub
-
 -- | systemEnv
 -- This is like System.Process.system except that it lets you set
 -- some environment variables.
@@ -1766,9 +1732,6 @@ isTopKey p@(SecretKeyPacket {}) | not (is_subkey p) = True
 isTopKey p@(PublicKeyPacket {}) | not (is_subkey p) = True
 isTopKey _ = False
 
-filterMatches :: KeySpec -> [(KeyKey,KeyData)] -> [(KeyKey,KeyData)]
-filterMatches spec ks = filter (matchSpec spec) ks
-
 selectSecretKey :: (KeySpec,Maybe String) -> KeyDB -> Maybe Packet
 selectSecretKey (spec,mtag) db = selectKey0 False (spec,mtag) db