implemented createPlayerStateL

src/Mtlstats/Types.hs

@@ -44,6 +44,7 @@ module Mtlstats.Types (
   inputBuffer,
   -- ** ProgMode Lenses
   gameStateL,
+  createPlayerStateL,
   -- ** GameState Lenses
   gameYear,
   gameMonth,
@@ -443,6 +444,13 @@ gameStateL = lens
     _          -> newGameState)
   (\_ gs -> NewGame gs)
 
+createPlayerStateL :: Lens' ProgMode CreatePlayerState
+createPlayerStateL = lens
+  (\case
+    CreatePlayer cps -> cps
+    _                -> newCreatePlayerState)
+  (\_ cps -> CreatePlayer cps)
+
 -- | Constructor for a 'ProgState'
 newProgState :: ProgState
 newProgState = ProgState

test/TypesSpec.hs

@@ -42,6 +42,7 @@ spec = describe "Mtlstats.Types" $ do
   gameStatsSpec
   databaseSpec
   gameStateLSpec
+  createPlayerStateLSpec
   teamScoreSpec
   otherScoreSpec
   homeTeamSpec
@@ -81,6 +82,23 @@ gameStateLSpec = describe "gameStateL" $ lensSpec gameStateL
   ]
   where gs t = newGameState & gameType ?~ t
 
+createPlayerStateLSpec :: Spec
+createPlayerStateLSpec = describe "createPlayerStateL" $
+  lensSpec createPlayerStateL
+  -- getters
+  [ ( MainMenu,              newCreatePlayerState )
+  , ( CreatePlayer $ cps 1 , cps 1                )
+  ]
+  -- setters
+  [ ( MainMenu,             cps 1 )
+  , ( CreatePlayer $ cps 1, cps 2 )
+  ]
+  where
+    cps n = newCreatePlayerState
+      & cpsNumber   ?~ n
+      & cpsName     .~ "foo"
+      & cpsPosition .~ "bar"
+
 teamScoreSpec :: Spec
 teamScoreSpec = describe "teamScore" $ do
   let