diff --git a/Main.hs b/Main.hs index 054d6fa..1e4640f 100644 --- a/Main.hs +++ b/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)"