bugfix: increment game number in startNewGame

2019-08-23 09:32:21 -04:00
parent c95520832d
commit 02f04a3d6c
2 changed files with 4 additions and 7 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -47,7 +47,7 @@ resetYtd
 startNewGame :: ProgState -> ProgState
 startNewGame
  = (progMode .~ NewGame newGameState)
-  . (database . dbGames .~ 0)
+  . (database . dbGames %~ succ)

 -- | Sets the game type to 'HomeGame'
 setHomeGame :: ProgState -> ProgState