From 06a762cfdcfad5256ba4bca0b61f54f679616c4b Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Tue, 10 Sep 2019 16:07:46 -0400
Subject: [PATCH] removed cpsConfirmed from CreatePlayerStatus

---
 src/Mtlstats/Control.hs | 3 +--
 src/Mtlstats/Types.hs   | 4 ----
 2 files changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs
index 7fe276b..edb8c42 100644
--- a/src/Mtlstats/Control.hs
+++ b/src/Mtlstats/Control.hs
@@ -57,8 +57,7 @@ dispatch s = case s^.progMode of
     | null $ cps^.cpsNumber   -> getPlayerNumC
     | null $ cps^.cpsName     -> getPlayerNameC
     | null $ cps^.cpsPosition -> getPlayerPosC
-    | not $ cps^.cpsConfirmed -> confirmCreatePlayerC
-    | otherwise               -> undefined
+    | otherwise               -> confirmCreatePlayerC
 
 mainMenuC :: Controller
 mainMenuC = Controller
diff --git a/src/Mtlstats/Types.hs b/src/Mtlstats/Types.hs
index 645a11e..be3701b 100644
--- a/src/Mtlstats/Types.hs
+++ b/src/Mtlstats/Types.hs
@@ -59,7 +59,6 @@ module Mtlstats.Types (
   cpsNumber,
   cpsName,
   cpsPosition,
-  cpsConfirmed,
   -- ** Database Lenses
   dbPlayers,
   dbGoalies,
@@ -204,8 +203,6 @@ data CreatePlayerState = CreatePlayerState
   -- ^ The player's name
   , _cpsPosition  :: String
   -- ^ The player's position
-  , _cpsConfirmed :: Bool
-  -- ^ Set when the user confirms the input
   } deriving (Eq, Show)
 
 -- | Represents the database
@@ -479,7 +476,6 @@ newCreatePlayerState = CreatePlayerState
   { _cpsNumber    = Nothing
   , _cpsName      = ""
   , _cpsPosition  = ""
-  , _cpsConfirmed = False
   }
 
 -- | Constructor for a 'Database'