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

tweak

Browse source
This commit is contained in:
Joey Hess 2010-12-30 15:15:22 -04:00
parent c274aadabc
commit 1c451fe362
1 changed files with 3 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
CmdLine.hs
View file

@ -57,12 +57,10 @@ usage header cmds options =
cmddescs = unlines $ map (indent . showcmd) cmds
showcmd c =
cmdname c ++
pad (commandlen + 1) (cmdname c) ++
pad (longest cmdname + 1) (cmdname c) ++
cmdparams c ++
pad (commandparamlen + 2) (cmdparams c) ++
pad (longest cmdparams + 2) (cmdparams c) ++
cmddesc c
indent l = " " ++ l
pad n s = replicate (n - length s) ' '
longest l = foldl max 0 $ map length l
commandlen = longest $ map cmdname cmds
commandparamlen = longest $ map cmdparams cmds
longest f = foldl max 0 $ map (length . f) cmds