Set 'url' as a flag

This commit is contained in:
Rnhmjoj 2014-11-23 15:01:02 +01:00
parent 1a4761b654
commit debeeb844b

View File

@ -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)"