summaryrefslogtreecommitdiff
path: root/CmdLine
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2015-07-08 13:39:11 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2015-07-08 13:39:11 -0400
commit8879c96d157f06bbd2372064251676b7927ce38e (patch)
tree146672a064a12c92cb692dc3a8293d2dd48afe22 /CmdLine
parente73914b7950ce9d26a3882472c7ab27260ff87f9 (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')
-rw-r--r--CmdLine/Usage.hs4
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