diff options
Diffstat (limited to 'CmdLine.hs')
| -rw-r--r-- | CmdLine.hs | 4 |
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 |