diff --git a/src/Main.hs b/src/Main.hs index 715353b..7609acd 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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