From 95d1cc62ea655a047333e5224d52c17a70c2d0cb Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Thu, 15 Jan 2015 19:56:18 -0400
Subject: [PATCH] avoid unncessary padding on last column in table

---
 src/Utility/Table.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Utility/Table.hs b/src/Utility/Table.hs
index 4e862ff..3d1a398 100644
--- a/src/Utility/Table.hs
+++ b/src/Utility/Table.hs
@@ -22,7 +22,8 @@ formatTable table = map (\r -> unwords (map pad (zip r rowsizes))) table
   where
 	pad (cell, size) = cell ++ take (size - length cell) padding
 	padding = repeat ' '
-	rowsizes = sumrows (map (map length) table)
+	rowsizes = reverse $ (0:) $ drop 1 $ reverse $
+		sumrows (map (map length) table)
 	sumrows [] = repeat 0
 	sumrows [r] = r
 	sumrows (r1:r2:rs) = sumrows $ map (uncurry max) (zip r1 r2) : rs