summaryrefslogtreecommitdiff
path: root/kiki.hs
diff options
context:
space:
mode:
Diffstat (limited to 'kiki.hs')
-rw-r--r--kiki.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/kiki.hs b/kiki.hs
index 6b2eb63..edc36d6 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -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