Merge pull request #16 from mtlstats/refactor

removed cpsConfirmed from CreatePlayerStatus

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

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'