implemented startNewGame

2019-08-22 01:18:02 -04:00
parent ca60d71006
commit c300542635
5 changed files with 47 additions and 12 deletions
--- a/src/Mtlstats/Actions.hs
+++ b/src/Mtlstats/Actions.hs
@@ -41,4 +41,6 @@ resetYtd

 -- | Starts a new game
 startNewGame :: ProgState -> ProgState
-startNewGame = undefined
+startNewGame
+  = (progMode .~ NewGame newGameState)
+  . (database . dbGames .~ 0)