diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index fa013cb..6f183fa 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -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 diff --git a/src/Mtlstats/Types.hs b/src/Mtlstats/Types.hs index 9f0fd41..85776fe 100644 --- a/src/Mtlstats/Types.hs +++ b/src/Mtlstats/Types.hs @@ -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