added player edit control flow branch

src/Mtlstats/Types.hs

@@ -31,6 +31,7 @@ module Mtlstats.Types (
   GameType (..),
   CreatePlayerState (..),
   CreateGoalieState (..),
+  EditPlayerState (..),
   Database (..),
   Player (..),
   PlayerStats (..),
@@ -208,6 +209,7 @@ data ProgMode
   | NewGame GameState
   | CreatePlayer CreatePlayerState
   | CreateGoalie CreateGoalieState
+  | EditPlayer EditPlayerState
 
 instance Show ProgMode where
   show MainMenu         = "MainMenu"
@@ -298,6 +300,9 @@ data CreateGoalieState = CreateGoalieState
   -- ^ The function to call on failure
   }
 
+-- | Player edit status
+data EditPlayerState = EditPlayerState
+
 -- | Represents the database
 data Database = Database
   { _dbPlayers       :: [Player]