added player edit control flow branch

This commit is contained in:
Jonathan Lamothe
2019-10-31 04:14:52 -04:00
parent 6ec7566b2c
commit 43c2f6191d
3 changed files with 35 additions and 0 deletions
+2
View File
@@ -31,6 +31,7 @@ import Lens.Micro.Extras (view)
import qualified UI.NCurses as C
import Mtlstats.Actions
import Mtlstats.Control.EditPlayer
import Mtlstats.Control.GoalieInput
import Mtlstats.Format
import Mtlstats.Handlers
@@ -70,6 +71,7 @@ dispatch s = case s^.progMode of
| null $ cgs^.cgsNumber -> getGoalieNumC
| null $ cgs^.cgsName -> getGoalieNameC
| otherwise -> confirmCreateGoalieC
EditPlayer eps -> editPlayer eps
mainMenuC :: Controller
mainMenuC = Controller