From f718757beacd9f620a967558b1a71636f5d7304f Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Sat, 31 Aug 2019 11:27:02 -0400
Subject: [PATCH] whitespace fix

---
 src/Mtlstats/Events.hs | 10 +++++-----
 src/Mtlstats/Menu.hs   |  4 ++--
 src/Mtlstats/Prompt.hs |  8 ++++----
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/src/Mtlstats/Events.hs b/src/Mtlstats/Events.hs
index cc3efe2..1886296 100644
--- a/src/Mtlstats/Events.hs
+++ b/src/Mtlstats/Events.hs
@@ -43,20 +43,20 @@ handleEvent e = gets (view progMode) >>= \case
   MainMenu  -> menuHandler mainMenu e
   NewSeason -> menuHandler newSeasonMenu e >> return True
   NewGame gs
-    | null $ gs ^. gameType -> do
+    | null $ gs^.gameType -> do
       menuHandler gameTypeMenu e
       return True
-    | null $ gs ^. otherTeam -> do
+    | null $ gs^.otherTeam -> do
       promptHandler otherTeamPrompt e
       return True
-    | null $ gs ^. homeScore -> do
+    | null $ gs^.homeScore -> do
       promptHandler homeScorePrompt e
       return True
-    | null $ gs ^. awayScore -> do
+    | null $ gs^.awayScore -> do
       promptHandler awayScorePrompt e
       modify overtimeCheck
       return True
-    | null $ gs ^. overtimeFlag -> do
+    | null $ gs^.overtimeFlag -> do
       overtimePrompt e
         >>= modify . (progMode.gameStateL.overtimeFlag .~)
       modify updateGameStats
diff --git a/src/Mtlstats/Menu.hs b/src/Mtlstats/Menu.hs
index 4574e7a..a64d1c1 100644
--- a/src/Mtlstats/Menu.hs
+++ b/src/Mtlstats/Menu.hs
@@ -75,7 +75,7 @@ newSeasonMenu = Menu "*** SEASON TYPE ***" ()
 gameTypeMenu :: Menu ()
 gameTypeMenu = Menu "*** GAME TYPE ***" ()
   [ MenuItem '1' "Home Game" $
-    modify $ progMode . gameStateL . gameType ?~ HomeGame
+    modify $ progMode.gameStateL.gameType ?~ HomeGame
   , MenuItem '2' "Away Game" $
-    modify $ progMode . gameStateL . gameType ?~ AwayGame
+    modify $ progMode.gameStateL.gameType ?~ AwayGame
   ]
diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs
index e311e19..12d8216 100644
--- a/src/Mtlstats/Prompt.hs
+++ b/src/Mtlstats/Prompt.hs
@@ -96,17 +96,17 @@ numPrompt pStr act = Prompt
 -- | Prompts for the other team name
 otherTeamPrompt :: Prompt
 otherTeamPrompt = strPrompt "Other team: " $
-  modify . (progMode . gameStateL . otherTeam .~)
+  modify . (progMode.gameStateL.otherTeam .~)
 
 -- | Prompts for the home score
 homeScorePrompt :: Prompt
 homeScorePrompt = numPrompt "Home score: " $
-  modify . (progMode . gameStateL . homeScore ?~)
+  modify . (progMode.gameStateL.homeScore ?~)
 
 -- | Prompts for the away score
 awayScorePrompt :: Prompt
 awayScorePrompt = numPrompt "Away score: " $
-  modify . (progMode . gameStateL . awayScore ?~)
+  modify . (progMode.gameStateL.awayScore ?~)
 
 drawSimplePrompt :: String -> ProgState -> C.Update ()
-drawSimplePrompt pStr s = C.drawString $ pStr ++ s ^. inputBuffer
+drawSimplePrompt pStr s = C.drawString $ pStr ++ s^.inputBuffer