diff options
Diffstat (limited to 'kiki.hs')
-rw-r--r-- | kiki.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -2026,7 +2026,10 @@ main = do | |||
2026 | , ("--show-wip",1) | 2026 | , ("--show-wip",1) |
2027 | , ("--help",0) | 2027 | , ("--help",0) |
2028 | ] | 2028 | ] |
2029 | argspec = map fst sargspec ++ ["--keyrings","--keypairs","--wallets","--bitcoin-keypairs"] | 2029 | argspec = map fst sargspec ++ ["--keyrings","--keypairs","--wallets"] |
2030 | -- "--bitcoin-keypairs" | ||
2031 | -- Disabled. We shouldn't accept private key | ||
2032 | -- data on the command line. | ||
2030 | args' = if map (take 1) (take 1 vargs) == ["-"] | 2033 | args' = if map (take 1) (take 1 vargs) == ["-"] |
2031 | then vargs | 2034 | then vargs |
2032 | else "--keyrings":vargs | 2035 | else "--keyrings":vargs |