From c274aadabcd1737e03003834dcf1f6bd9a79b0aa Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 30 Dec 2010 15:12:55 -0400
Subject: [PATCH] remove magic numbers

---
 CmdLine.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/CmdLine.hs b/CmdLine.hs
index 54c2289c61..3767fc2406 100644
--- a/CmdLine.hs
+++ b/CmdLine.hs
@@ -57,9 +57,12 @@ usage header cmds options =
 		cmddescs = unlines $ map (indent . showcmd) cmds
 		showcmd c =
 			cmdname c ++
-			pad 11 (cmdname c) ++
+			pad (commandlen + 1) (cmdname c) ++
 			cmdparams c ++
-			pad 13 (cmdparams c) ++
+			pad (commandparamlen + 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