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