From f560f21f27c5c2f9fe219ecd6e53939cc6559358 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Fri, 14 Oct 2022 14:52:39 -0400 Subject: update lift data --- repgoal.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'repgoal.hs') diff --git a/repgoal.hs b/repgoal.hs index bd7f678..dcd956f 100755 --- a/repgoal.hs +++ b/repgoal.hs @@ -77,10 +77,10 @@ data LiftTarget = LiftTarget { initial :: [LiftTarget] initial = [ - LiftTarget "Deadlift" 360 $ [Achieved 5 360, Achieved 9 315, Achieved 8 345], - LiftTarget "Press" 135 $ [Achieved 6 130, Achieved 9 120], - LiftTarget "Squat" 285 $ [Achieved 6 270, Achieved 8 255, Achieved 5 285], - LiftTarget "Bench" 205 $ [Achieved 7 190, Achieved 9 180, Achieved 4 205] + LiftTarget "Deadlift" 340 [Achieved 5 360, Achieved 9 315, Achieved 8 345, Achieved 7 360], + LiftTarget "Press" 120 [Achieved 6 130, Achieved 9 120, Achieved 4 135], + LiftTarget "Squat" 255 [Achieved 6 270, Achieved 8 255, Achieved 5 285, Achieved 10 255], + LiftTarget "Bench" 180 [Achieved 7 190, Achieved 9 180, Achieved 4 205, Achieved 11 180] ] computeRepGoal :: LiftTarget -> (Integer) -- cgit v1.2.3