implemented gameStateL

src/Mtlstats/Types.hs

@@ -41,6 +41,7 @@ module Mtlstats.Types (
   progMode,
   inputBuffer,
   -- ** ProgMode Lenses
+  gameStateL,
   gameTypeL,
   otherTeamL,
   homeScoreL,
@@ -383,6 +384,13 @@ makeLenses ''Goalie
 makeLenses ''GoalieStats
 makeLenses ''GameStats
 
+gameStateL :: Lens' ProgMode GameState
+gameStateL = lens
+  (\case
+    NewGame gs -> gs
+    _          -> newGameState)
+  (\_ gs -> NewGame gs)
+
 gameTypeL :: Lens' ProgMode (Maybe GameType)
 gameTypeL = lens
   (\case