diff options
-rwxr-xr-x | repgoal.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -102,7 +102,7 @@ showRational n = printf format $ (realToFrac :: Rational -> Float) $ n | |||
102 | drawUI :: () -> [Widget ()] | 102 | drawUI :: () -> [Widget ()] |
103 | drawUI () = [a] | 103 | drawUI () = [a] |
104 | where | 104 | where |
105 | a = hCenter $ renderTable $ table $ | 105 | a = vCenter $ hCenter $ renderTable $ table $ |
106 | map (padLeftRight 1 . str) ["Lift", "Achieved Best", "Computed 1RM", "Goal Reps", "Goal+1"] : map toRow lifts | 106 | map (padLeftRight 1 . str) ["Lift", "Achieved Best", "Computed 1RM", "Goal Reps", "Goal+1"] : map toRow lifts |
107 | toRow x@LiftTarget{..} = | 107 | toRow x@LiftTarget{..} = |
108 | let best@Achieved{..} = bestPerformance stats | 108 | let best@Achieved{..} = bestPerformance stats |