From d465c82d56327b30b8bb5510ec95aa530f9663e8 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Fri, 21 Oct 2022 01:44:47 -0400 Subject: unused variable --- repgoal.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/repgoal.hs b/repgoal.hs index 11bfd5c..8492ce8 100755 --- a/repgoal.hs +++ b/repgoal.hs @@ -177,9 +177,9 @@ drawUI st = [vCenter $ vBox [hCenter oneRepMaxTable, withVScrollBarHandles $ wit str $ showRational $ computeOneRepMax best ] toLiftRows :: WeekSelection -> LiftRecord -> [[Widget n]] - toLiftRows week lift = (flip map) (annotatePosition $ liftScheme Fresher week) $ toLiftRow week lift - toLiftRow :: WeekSelection -> LiftRecord -> (ListPosition, SetScheme) -> [Widget n] - toLiftRow week LiftRecord{..} (position, (SetScheme targetRatio targetReps)) = + toLiftRows week lift = (flip map) (annotatePosition $ liftScheme Fresher week) $ toLiftRow lift + toLiftRow :: LiftRecord -> (ListPosition, SetScheme) -> [Widget n] + toLiftRow LiftRecord{..} (position, (SetScheme targetRatio targetReps)) = let best = bestPerformance stats computedTarget = targetRatio * (90 % 100) * computeOneRepMax best targetWeight = ceilingN 5 computedTarget -- cgit v1.2.3