summaryrefslogtreecommitdiff
path: root/CmdLine.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-05 20:40:31 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-05 23:11:06 -0400
commit47be4383b714320c9e3f49cc23315101fad5735b (patch)
tree3a43aa41c43693ab9b66cc1b53a0d6dc0e1fb49e /CmdLine.hs
parentcdcf0aac71bf6135d45b7f5d13342ed3d040596a (diff)
Command data structure tweaking
Diffstat (limited to 'CmdLine.hs')
-rw-r--r--CmdLine.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/CmdLine.hs b/CmdLine.hs
index 7f708f15a..fb2792cf4 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -67,8 +67,8 @@ usage header cmds options = usageInfo top options ++ commands
showcmd c =
cmdname c ++
pad (longest cmdname + 1) (cmdname c) ++
- cmdparams c ++
- pad (longest cmdparams + 2) (cmdparams c) ++
+ cmdparamdesc c ++
+ pad (longest cmdparamdesc + 2) (cmdparamdesc c) ++
cmddesc c
pad n s = replicate (n - length s) ' '
longest f = foldl max 0 $ map (length . f) cmds