formatting

1 files changed, 86 insertions, 28 deletions

diff --git a/repgoal.hs b/repgoal.hs
index d27e72c..9c2ccc9 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -323,34 +323,92 @@ jerk = pushPress / 100 * 85
 
 program :: NESeq Session
 program =
-  Session "Deadlift" (Lift "Deadlift" Wendler :<|| Seq.fromList [
-                         Lift "Press" Wendler,
-                         Lift "Row" $ Accessory 5 10,
-                         Lift "Dip" $ Unspecified,
-                         Lift "Good Morning" $ Accessory 3 10])
-  :<||
-  Seq.fromList [
-  Session "Front Squat" (Lift "Front Squat" Wendler :<|| Seq.fromList
-                         [Lift "Press front & back" $ Accessory 1 10,
-                          Lift "Squat" $ Accessory 1 5,
-                          Lift "Good Morning" $ Accessory 1 5,
-                          Lift "Front Squat" $ Accessory 1 5,
-                          Lift "SLDL" $ Accessory 1 5,
-                          Lift "Snatch high pull from thighs" $ Accessory 1 5,
-                          Lift "Snatch high pull from knees" $ Accessory 1 5,
-                          Lift "Snatch high pull from shins" $ Accessory 1 5,
-                          Lift "Muscle Snatch" $ Accessory 1 5,
-                          Lift "Overhead Squat" $ Accessory 1 5,
-                          Lift "Left-Arm Snatch" $ Accessory 5 3,
-                          Lift "Right-Arm Snatch" $ Accessory 5 3]) ,
-  Session "Squat" (Lift "Squat" Wendler :<|| Seq.fromList [
-                      Lift "Bench" Wendler,
-                      Lift "Row" $ Accessory 5 10,
-                      Lift "Back Raise" $ Accessory 3 15,
-                      Lift "DB Bench" $ Accessory 3 10,
-                      Lift "Rear Lateral" $ Accessory 3 20]),
-  Session "Power Clean" (Lift "Power Clean" Wendler :<|| Seq.fromList [Lift "Push Press" Wendler])
-  ]
+
+   ( Session "531 Deadlift/Press" $
+
+     Lift "Deadlift" Wendler
+     :<|| Seq.fromList
+     [ Lift "Press" Wendler
+     , Lift "Row" $ Accessory 5 10
+     , Lift "Dip" $ Unspecified
+     , Lift "Good Morning" $ Accessory 3 10
+     ]
+   )
+  :<|| Seq.fromList
+
+  [ Session "Front Squat" $
+
+    Lift "Front Squat" Wendler :<||
+    Seq.fromList
+    [ Lift "Press front & back" $ Accessory 1 10
+    , Lift "Squat" $ Accessory 1 5
+    , Lift "Good Morning" $ Accessory 1 5
+    , Lift "Front Squat" $ Accessory 1 5
+    , Lift "SLDL" $ Accessory 1 5
+    , Lift "Snatch high pull from thighs" $ Accessory 1 5
+    , Lift "Snatch high pull from knees" $ Accessory 1 5
+    , Lift "Snatch high pull from shins" $ Accessory 1 5
+    , Lift "Muscle Snatch" $ Accessory 1 5
+    , Lift "Overhead Squat" $ Accessory 1 5
+    , Lift "Left-Arm Snatch" $ Accessory 5 3
+    , Lift "Right-Arm Snatch" $ Accessory 5 3
+    ]
+
+    , Session "531 Squat/Bench" $
+
+      Lift "Squat" Wendler
+      :<|| Seq.fromList
+      [ Lift "Bench" Wendler
+      , Lift "Row" $ Accessory 5 10
+      , Lift "Back Raise" $ Accessory 3 15
+      , Lift "DB Press" $ Accessory 3 10
+      , Lift "Rear Lateral" $ Accessory 3 20
+      ]
+
+    , Session "Power Clean" $
+
+      Lift "Power Clean" Wendler
+      :<|| Seq.fromList
+      [ Lift "Push Press" Wendler
+      ]
+
+    , Session "Power Lifting" $
+
+      Lift "Deadlift" Wendler
+      :<|| Seq.fromList
+      [ Lift "Squat" Wendler
+      ,  Lift "Bench" Wendler
+      ,  Lift "Press" Wendler
+      ]
+
+    , Session "Accessories" $
+
+      Lift "Row" (Accessory 5 10)
+      :<|| Seq.fromList
+      [ Lift "DB Press" $ Accessory 3 10
+      , Lift "Row" $ Accessory 5 10
+      , Lift "Dip" $ Unspecified
+      , Lift "Good Morning" $ Accessory 3 10
+      , Lift "Rear Lateral" $ Accessory 3 10
+      ]
+
+    , Session "Naked Bar Warmup" $
+
+      Lift "Press front & back" (Accessory 1 10)
+      :<|| Seq.fromList
+      [ Lift "Squat" $ Accessory 1 5
+      , Lift "Good Morning" $ Accessory 1 5
+      , Lift "Front Squat" $ Accessory 1 5
+      , Lift "SLDL" $ Accessory 1 5
+      , Lift "Snatch high pull from thighs" $ Accessory 1 5
+      , Lift "Snatch high pull from knees" $ Accessory 1 5
+      , Lift "Snatch high pull from shins" $ Accessory 1 5
+      , Lift "Muscle Snatch" $ Accessory 1 5
+      , Lift "Overhead Squat" $ Accessory 1 5
+      , Lift "Left-Arm Snatch" $ Accessory 5 3
+      , Lift "Right-Arm Snatch" $ Accessory 5 3
+      ]
+    ]
 
 main :: IO ()
 main = do