return to edit menu after player/goalie creation

This commit is contained in:
Jonathan Lamothe 2019-12-17 12:30:55 -05:00
parent adf09c2cc4
commit 235dd4e611

View File

@ -83,7 +83,7 @@ removeChar = inputBuffer %~ \case
-- | Starts player creation mode
createPlayer :: ProgState -> ProgState
createPlayer = let
callback = modify $ progMode .~ MainMenu
callback = modify edit
cps = newCreatePlayerState
& cpsSuccessCallback .~ callback
& cpsFailureCallback .~ callback
@ -92,7 +92,7 @@ createPlayer = let
-- | Starts goalie creation mode
createGoalie :: ProgState -> ProgState
createGoalie = let
callback = modify $ progMode .~ MainMenu
callback = modify edit
cgs = newCreateGoalieState
& cgsSuccessCallback .~ callback
& cgsFailureCallback .~ callback