added EditStandings mode
This commit is contained in:
parent
802bf7314e
commit
a909b9ba7a
|
@ -56,6 +56,7 @@ dispatch s = case s^.progMode of
|
|||
| otherwise -> confirmCreateGoalieC
|
||||
EditPlayer eps -> editPlayerC eps
|
||||
EditGoalie egs -> editGoalieC egs
|
||||
EditStandings -> undefined
|
||||
|
||||
mainMenuC :: Controller
|
||||
mainMenuC = Controller
|
||||
|
|
|
@ -239,6 +239,7 @@ data ProgMode
|
|||
| CreateGoalie CreateGoalieState
|
||||
| EditPlayer EditPlayerState
|
||||
| EditGoalie EditGoalieState
|
||||
| EditStandings
|
||||
|
||||
instance Show ProgMode where
|
||||
show MainMenu = "MainMenu"
|
||||
|
@ -249,6 +250,7 @@ instance Show ProgMode where
|
|||
show (CreateGoalie _) = "CreateGoalie"
|
||||
show (EditPlayer _) = "EditPlayer"
|
||||
show (EditGoalie _) = "EditGoalie"
|
||||
show EditStandings = "EditStandings"
|
||||
|
||||
-- | The game state
|
||||
data GameState = GameState
|
||||
|
|
Loading…
Reference in New Issue
Block a user