mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

Command data structure tweaking

Browse source
This commit is contained in:
Joey Hess 2012-01-05 20:40:31 -04:00
parent cdcf0aac71
commit 47be4383b7
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CmdLine.hs
View file

@ -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