removed unnecessary lenses

2019-08-28 01:09:03 -04:00
parent d7dd682532
commit 2854c54474
4 changed files with 5 additions and 96 deletions
--- 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 . gameTypeL ?~ HomeGame
+    modify $ progMode . gameStateL . gameType ?~ HomeGame
  , MenuItem '2' "Away Game" $
-    modify $ progMode . gameTypeL ?~ AwayGame
+    modify $ progMode . gameStateL . gameType ?~ AwayGame
  ]