tweaksHEADmaster

1 files changed, 12 insertions, 11 deletions

diff --git a/repgoal.hs b/repgoal.hs
index cb9cee3..547f6b0 100755
--- a/repgoal.hs
+++ b/repgoal.hs
@@ -198,14 +198,15 @@ accessoryLiftRow liftRecords name targetReps (position, _) =
     targetWeight = join $ fmap achievedWeight . find ((== targetReps) . fromIntegral . achievedReps) . stats <$> liftRecords
 
 unspecifiedLiftRow :: Text -> [Widget n]
-unspecifiedLiftRow name = map (padLeftRight 2) [
-    txt name,
-    txt " ",
-    txt " ",
-    txt " ",
-    txt " ",
-    txt " ",
-    txt " "
+unspecifiedLiftRow name =
+  map (padLeftRight 2)
+  [ txt name
+  , txt " "
+  , txt " "
+  , txt " "
+  , txt " "
+  , txt " "
+  , txt " "
   ]
 
 wendlerLiftRow :: LiftRecord -> (ListPosition, SetScheme) -> [Widget n]
@@ -329,7 +330,7 @@ jerk = pushPress / 100 * 85
 program :: NESeq Session
 program =
 
-   ( Session "531 Deadlift/Press" $
+   ( Session "5-3-1 Deadlift/Press" $
 
      Lift "Deadlift" Wendler
      :<|| Seq.fromList
@@ -359,7 +360,7 @@ program =
     , Lift "Right-Arm Snatch" $ Accessory 5 3
     ]
 
-    , Session "531 Squat/Bench" $
+    , Session "5-3-1 Squat/Bench" $
 
       Lift "Squat" Wendler
       :<|| Seq.fromList
@@ -401,7 +402,7 @@ program =
 
       Lift "Press front & back" (Accessory 1 10)
       :<|| Seq.fromList
-      [ Lift "Squat" $ Accessory 1 5
+      [ Lift "Back Squat" $ Accessory 1 5
       , Lift "Good Morning" $ Accessory 1 5
       , Lift "Front Squat" $ Accessory 1 5
       , Lift "SLDL" $ Accessory 1 5