diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2015-07-08 13:39:11 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-07-08 13:39:11 -0400 |
| commit | 8879c96d157f06bbd2372064251676b7927ce38e (patch) | |
| tree | 146672a064a12c92cb692dc3a8293d2dd48afe22 /CmdLine/Usage.hs | |
| parent | e73914b7950ce9d26a3882472c7ab27260ff87f9 (diff) | |
display cmdparamdesc in optparse-applicative usage messages
Since optparse-applicative display "FOO" as "[FOO]", the paramOptional
modifier which wrapped it in square brackets was removed from most places.
Diffstat (limited to 'CmdLine/Usage.hs')
| -rw-r--r-- | CmdLine/Usage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine/Usage.hs b/CmdLine/Usage.hs index ad1d4e583..b386be9a6 100644 --- a/CmdLine/Usage.hs +++ b/CmdLine/Usage.hs @@ -58,7 +58,7 @@ commandUsage cmd = unlines {- Descriptions of params used in usage messages. -} paramPaths :: String -paramPaths = paramOptional $ paramRepeating paramPath -- most often used +paramPaths = paramRepeating paramPath -- most often used paramPath :: String paramPath = "PATH" paramKey :: String @@ -114,6 +114,6 @@ paramNothing = "" paramRepeating :: String -> String paramRepeating s = s ++ " ..." paramOptional :: String -> String -paramOptional s = "[" ++ s ++ "]" +paramOptional s = s paramPair :: String -> String -> String paramPair a b = a ++ " " ++ b |