From 86b0a55b2e28dad14990b1ad419e82f92f0873b8 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Tue, 4 Oct 2022 08:10:58 -0400
Subject: vertical centering

---
 repgoal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'repgoal.hs')

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
-- 
cgit v1.2.3