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

remove magic numbers

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

7
CmdLine.hs
View file

@ -57,9 +57,12 @@ usage header cmds options =
cmddescs = unlines $ map (indent . showcmd) cmds cmddescs = unlines $ map (indent . showcmd) cmds
showcmd c = showcmd c =
cmdname c ++ cmdname c ++
pad 11 (cmdname c) ++ pad (commandlen + 1) (cmdname c) ++
cmdparams c ++ cmdparams c ++
pad 13 (cmdparams c) ++ pad (commandparamlen + 2) (cmdparams c) ++
cmddesc c cmddesc c
indent l = " " ++ l indent l = " " ++ l
pad n s = replicate (n - length s) ' ' 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