diff options
Diffstat (limited to 'repgoal.hs')
-rwxr-xr-x | repgoal.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -177,9 +177,9 @@ drawUI st = [vCenter $ vBox [hCenter oneRepMaxTable, withVScrollBarHandles $ wit | |||
177 | str $ showRational $ computeOneRepMax best | 177 | str $ showRational $ computeOneRepMax best |
178 | ] | 178 | ] |
179 | toLiftRows :: WeekSelection -> LiftRecord -> [[Widget n]] | 179 | toLiftRows :: WeekSelection -> LiftRecord -> [[Widget n]] |
180 | toLiftRows week lift = (flip map) (annotatePosition $ liftScheme Fresher week) $ toLiftRow week lift | 180 | toLiftRows week lift = (flip map) (annotatePosition $ liftScheme Fresher week) $ toLiftRow lift |
181 | toLiftRow :: WeekSelection -> LiftRecord -> (ListPosition, SetScheme) -> [Widget n] | 181 | toLiftRow :: LiftRecord -> (ListPosition, SetScheme) -> [Widget n] |
182 | toLiftRow week LiftRecord{..} (position, (SetScheme targetRatio targetReps)) = | 182 | toLiftRow LiftRecord{..} (position, (SetScheme targetRatio targetReps)) = |
183 | let best = bestPerformance stats | 183 | let best = bestPerformance stats |
184 | computedTarget = targetRatio * (90 % 100) * computeOneRepMax best | 184 | computedTarget = targetRatio * (90 % 100) * computeOneRepMax best |
185 | targetWeight = ceilingN 5 computedTarget | 185 | targetWeight = ceilingN 5 computedTarget |