From 50389b4f4cb9bf157a790f707c4fc0d3f5a5f441 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 28 Nov 2019 11:41:47 -0500
Subject: [PATCH] renamed variable

---
 src/Mtlstats/Actions/NewGame.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Mtlstats/Actions/NewGame.hs b/src/Mtlstats/Actions/NewGame.hs
index 68841eb..4ccec27 100644
--- a/src/Mtlstats/Actions/NewGame.hs
+++ b/src/Mtlstats/Actions/NewGame.hs
@@ -177,8 +177,8 @@ assignPMins mins s = fromMaybe s $ do
 -- goals
 awardShutouts :: ProgState -> ProgState
 awardShutouts s = foldl
-  (\gs (gid, stats) -> if stats^.gsGoalsAllowed == 0
-    then gs
+  (\s' (gid, stats) -> if stats^.gsGoalsAllowed == 0
+    then s'
       & database.dbGoalies %~ modifyNth gid
         ( ( gYtd.gsShutouts      %~ succ )
         . ( gLifetime.gsShutouts %~ succ )
@@ -186,6 +186,6 @@ awardShutouts s = foldl
       & progMode.gameStateL.gameGoalieStats %~ M.adjust
         (gsShutouts %~ succ)
         gid
-    else gs)
+    else s')
   s
   (M.toList $ s^.progMode.gameStateL.gameGoalieStats)