Set 'url' as a flag
This commit is contained in:
parent
1a4761b654
commit
debeeb844b
2
Main.hs
2
Main.hs
@ -24,7 +24,7 @@ data ProgArgs = ProgArgs
|
||||
parser :: ParserSpec ProgArgs
|
||||
parser = ProgArgs
|
||||
`parsedBy` reqPos "name" `Descr` "Namecoin name id"
|
||||
`andBy` optPos "http://dns.dnschain.net/" "url"
|
||||
`andBy` optFlag "http://dns.dnschain.net/" "url"
|
||||
`Descr` "Use custom dnschain API url"
|
||||
`andBy` boolFlag "local" `Descr` "Use local namecoind db"
|
||||
`andBy` boolFlag "block" `Descr` "Show blockchain data (require local connecton)"
|
||||
|
Loading…
Reference in New Issue
Block a user