Add metavariable for positional argument

2016-05-05 18:11:51 +02:00 · 2016-05-05 18:11:51 +02:00 · 0309812401
commit 0309812401
parent de59ba6a96
1 changed files with 6 additions and 4 deletions
--- 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'