added title screen logic branch

This commit is contained in:
Jonathan Lamothe
2020-01-21 22:20:01 -05:00
parent be9d7d80bb
commit 45aea607b2
3 changed files with 33 additions and 2 deletions

View File

@@ -29,6 +29,7 @@ import Lens.Micro.Extras (view)
import qualified UI.NCurses as C
import Mtlstats.Actions
import Mtlstats.Control.TitleScreen
import Mtlstats.Control.EditGoalie
import Mtlstats.Control.EditPlayer
import Mtlstats.Control.EditStandings
@@ -42,6 +43,7 @@ import Mtlstats.Types
-- run
dispatch :: ProgState -> Controller
dispatch s = case s^.progMode of
TitleScreen -> titleScreenC
MainMenu -> mainMenuC
NewSeason flag -> newSeasonC flag
NewGame gs -> newGameC gs