vertical centering

1 files changed, 1 insertions, 1 deletions

diff --git a/repgoal.hs b/repgoal.hs
index 2170073..480d1e2 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -102,7 +102,7 @@ showRational n = printf format $ (realToFrac :: Rational -> Float) $ n
 drawUI :: () -> [Widget ()]
 drawUI () = [a]
   where
-    a = hCenter $ renderTable $ table $
+    a = vCenter $ hCenter $ renderTable $ table $
         map (padLeftRight 1 . str) ["Lift", "Achieved Best", "Computed 1RM", "Goal Reps", "Goal+1"] : map toRow lifts
     toRow x@LiftTarget{..} =
       let best@Achieved{..} = bestPerformance stats