return to edit menu after player/goalie creation
This commit is contained in:
@@ -83,7 +83,7 @@ removeChar = inputBuffer %~ \case
|
|||||||
-- | Starts player creation mode
|
-- | Starts player creation mode
|
||||||
createPlayer :: ProgState -> ProgState
|
createPlayer :: ProgState -> ProgState
|
||||||
createPlayer = let
|
createPlayer = let
|
||||||
callback = modify $ progMode .~ MainMenu
|
callback = modify edit
|
||||||
cps = newCreatePlayerState
|
cps = newCreatePlayerState
|
||||||
& cpsSuccessCallback .~ callback
|
& cpsSuccessCallback .~ callback
|
||||||
& cpsFailureCallback .~ callback
|
& cpsFailureCallback .~ callback
|
||||||
@@ -92,7 +92,7 @@ createPlayer = let
|
|||||||
-- | Starts goalie creation mode
|
-- | Starts goalie creation mode
|
||||||
createGoalie :: ProgState -> ProgState
|
createGoalie :: ProgState -> ProgState
|
||||||
createGoalie = let
|
createGoalie = let
|
||||||
callback = modify $ progMode .~ MainMenu
|
callback = modify edit
|
||||||
cgs = newCreateGoalieState
|
cgs = newCreateGoalieState
|
||||||
& cgsSuccessCallback .~ callback
|
& cgsSuccessCallback .~ callback
|
||||||
& cgsFailureCallback .~ callback
|
& cgsFailureCallback .~ callback
|
||||||
|
|||||||
Reference in New Issue
Block a user