From 1d36359ed572fe04b03a6cb5acc83f6c388703aa Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Mon, 24 Oct 2022 20:48:53 -0400 Subject: remove unused hard-coded lift data --- repgoal.hs | 19 +------------------ 1 file changed, 1 insertion(+), 18 deletions(-) diff --git a/repgoal.hs b/repgoal.hs index a7b2fbf..0ceaf46 100755 --- a/repgoal.hs +++ b/repgoal.hs @@ -87,22 +87,6 @@ data LiftRecord = LiftRecord { stats :: [Performance] } deriving Generic deriving (Read, Show) via Surgery Derecordify LiftRecord -initial' :: [LiftRecord] -initial' = - [ - LiftRecord "Squat" [Achieved 6 270, Achieved 8 255, Achieved 5 285, Achieved 10 255, Achieved 7 280], - LiftRecord "Bench" [Achieved 7 190, Achieved 9 180, Achieved 4 205, Achieved 11 180, Achieved 8 200], - LiftRecord "Deadlift" [Achieved 5 360, Achieved 9 315, Achieved 8 345, Achieved 7 360, Achieved 10 340], - -- LiftRecord "Press" [Achieved 6 130, Achieved 9 120, Achieved 4 135] - LiftRecord "Press" [Achieved 5 120], - LiftRecord "Power Clean" [Achieved 10 135], - LiftRecord "Push Press" [Achieved 7 135], - LiftRecord "Front Squat" [Achieved 5 255], - LiftRecord "Left-Arm Snatch" [Achieved 3 85], - LiftRecord "Right-Arm Snatch" [Achieved 3 85], - LiftRecord "Overhead Squat" [Achieved 5 65] - ] - -- "I highly recommend having a goal in mind for these last sets. Sit down the -- night before, or the week before, and think of the number of reps you’d like -- to hit. See yourself doing it. Write it down and visualize the bar in your @@ -274,8 +258,7 @@ routine = , Set.fromList ["Push Press", "Power Clean"] ] -main, main' :: IO () -main' = pPrint initial' +main :: IO () main = do let buildVty = V.mkVty V.defaultConfig vty <- buildVty -- cgit v1.2.3