rnhmjoj/rosa
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add metavariable for positional argument

Browse Source
This commit is contained in:
rnhmjoj 2016-05-05 18:11:51 +02:00
parent de59ba6a96
commit 0309812401
No known key found for this signature in database
GPG Key ID: 362BB82B7E496B7C
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Main.hs
View File

@ -29,7 +29,9 @@ data Options = Options
-- | Program arguments parser
options :: Parser Options
options = Options
<$> strArgument ( help "Namecoin name id" )
<$> strArgument
( metavar "NAME"
<> help "Namecoin name id" )
<*> strOption
( long "url"
<> short 'u'
@ -39,15 +41,15 @@ options = Options
<*> switch
( long "dnschain"
<> short 'd'
<> help "Use dnschain api")
<> help "Use dnschain api" )
<*> switch
( long "block"
<> short 'b'
<> help "Show blockchain data (require local connection)")
<> help "Show blockchain data (require local connection)" )
<*> switch
( long "raw"
<> short 'r'
<> help "Print raw JSON data")
<> help "Print raw JSON data" )
-- | Program description