From 1e76cb3bf9385d0254972b830eda40569469760b Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Fri, 25 Nov 2022 23:34:48 -0500
Subject: tweaks

---
 repgoal.hs | 23 ++++++++++++-----------
 1 file 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
-- 
cgit v1.2.3