unused variable

1 files 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