From debeeb844bf268f672b2e433d8de11c3cc6a0b33 Mon Sep 17 00:00:00 2001
From: Rnhmjoj <micheleguerinirocco@me.com>
Date: Sun, 23 Nov 2014 15:01:02 +0100
Subject: [PATCH] Set 'url' as a flag

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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