be pedantic

src/Mtlstats/Actions/NewGame/GoalieInput.hs

@@ -54,10 +54,10 @@ recordGoalieStats s = fromMaybe s $ do
       then 1
       else 0
 
-    bumpStats gs = gs
-      & gsGames        +~ bumpVal
-      & gsMinsPlayed   +~ mins
-      & gsGoalsAllowed +~ goals
+    bumpStats
+      = (gsGames        +~ bumpVal)
+      . (gsMinsPlayed   +~ mins)
+      . (gsGoalsAllowed +~ goals)
 
     tryFinish = if mins >= gameLength
       then finishGoalieEntry
@@ -91,18 +91,18 @@ setGameGoalie gid s = fromMaybe s $ do
     l = if lost then 1 else 0
     t = if tied then 1 else 0
 
-    updateStats gs = gs
-      & gsWins   +~ w
-      & gsLosses +~ l
-      & gsTies   +~ t
+    updateStats
+      = (gsWins   +~ w)
+      . (gsLosses +~ l)
+      . (gsTies   +~ t)
 
-    updateGoalie g = g
-      & gYtd      %~ updateStats
-      & gLifetime %~ updateStats
+    updateGoalie
+      = (gYtd      %~ updateStats)
+      . (gLifetime %~ updateStats)
 
-    updateGameState gs = gs
-      & gameGoalieStats %~ updateMap gid newGoalieStats updateStats
-      & gameGoalieAssigned .~ True
+    updateGameState
+      = (gameGoalieStats %~ updateMap gid newGoalieStats updateStats)
+      . (gameGoalieAssigned .~ True)
 
   Just $ s
     & database.dbGoalies  %~ modifyNth gid updateGoalie

src/Mtlstats/Prompt.hs

@@ -162,9 +162,9 @@ selectPrompt params = Prompt
         n       = pred $ fromInteger rawK
         results = spSearch params sStr db
       when (n < maxFunKeys) $
-        whenJust (nth n results) $ \(n, _) -> do
+        whenJust (nth n results) $ \(sel, _) -> do
           modify $ inputBuffer .~ ""
-          spCallback params $ Just n
+          spCallback params $ Just sel
     _ -> return ()
   }
 

src/Mtlstats/Report.hs

@@ -111,10 +111,10 @@ lifetimeStatsReport width s = playerReport width "LIFETIME" $
 
 gameDate :: GameState -> String
 gameDate gs = fromMaybe "" $ do
-  year  <- show <$> gs^.gameYear
-  month <- month <$> gs^.gameMonth
-  day   <- padNum 2 <$> gs^.gameDay
-  Just $ month ++ " " ++ day ++ " " ++ year
+  y <- show <$> gs^.gameYear
+  m <- month <$> gs^.gameMonth
+  d <- padNum 2 <$> gs^.gameDay
+  Just $ m ++ " " ++ d ++ " " ++ y
 
 playerReport :: Int -> String -> [(Player, PlayerStats)] -> [String]
 playerReport width label ps = let

src/Mtlstats/Types.hs

@@ -828,9 +828,8 @@ playerSearch
   -> [(Int, Player)]
   -- ^ The matching players with their index numbers
 playerSearch sStr =
-  filter (match sStr) .
-  zip [0..]
-  where match sStr (_, p) = sStr `isInfixOf` (p^.pName)
+  filter match . zip [0..]
+  where match (_, p) = sStr `isInfixOf` (p^.pName)
 
 -- | Searches for a player by exact match on name
 playerSearchExact
@@ -841,10 +840,8 @@ playerSearchExact
   -> Maybe (Int, Player)
   -- ^ The player's index and value
 playerSearchExact sStr =
-  listToMaybe .
-  filter (match sStr) .
-  zip [0..]
-  where match sStr (_, p) = p^.pName == sStr
+  listToMaybe . filter match . zip [0..]
+  where match (_, p) = p^.pName == sStr
 
 -- | Modifies a player with a given name
 modifyPlayer