fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added EditStandings mode

This commit is contained in:
Jonathan Lamothe 2020-01-15 00:08:04 -05:00
parent 802bf7314e
commit a909b9ba7a
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Mtlstats/Control.hs
View File

@ -56,6 +56,7 @@ dispatch s = case s^.progMode of
| otherwise -> confirmCreateGoalieC | otherwise -> confirmCreateGoalieC
EditPlayer eps -> editPlayerC eps EditPlayer eps -> editPlayerC eps
EditGoalie egs -> editGoalieC egs EditGoalie egs -> editGoalieC egs
EditStandings -> undefined
mainMenuC :: Controller mainMenuC :: Controller
mainMenuC = Controller mainMenuC = Controller

2
src/Mtlstats/Types.hs
View File

@ -239,6 +239,7 @@ data ProgMode
| CreateGoalie CreateGoalieState | CreateGoalie CreateGoalieState
| EditPlayer EditPlayerState | EditPlayer EditPlayerState
| EditGoalie EditGoalieState | EditGoalie EditGoalieState
| EditStandings
instance Show ProgMode where instance Show ProgMode where
show MainMenu = "MainMenu" show MainMenu = "MainMenu"
@ -249,6 +250,7 @@ instance Show ProgMode where
show (CreateGoalie _) = "CreateGoalie" show (CreateGoalie _) = "CreateGoalie"
show (EditPlayer _) = "EditPlayer" show (EditPlayer _) = "EditPlayer"
show (EditGoalie _) = "EditGoalie" show (EditGoalie _) = "EditGoalie"
show EditStandings = "EditStandings"
-- | The game state -- | The game state
data GameState = GameState data GameState = GameState