bugfix: don't abort player selection

...upon cancellation of player creation
This commit is contained in:
Jonathan Lamothe
2019-10-30 00:45:16 -04:00
parent 121f79a8a2
commit 4a113d06e1
3 changed files with 3 additions and 14 deletions
+2 -6
View File
@@ -64,7 +64,6 @@ module Mtlstats.Types (
selectedPlayer,
pMinsRecorded,
-- ** CreatePlayerState Lenses
cpsAbortable,
cpsNumber,
cpsName,
cpsPosition,
@@ -244,9 +243,7 @@ data GameType
-- | Player creation status
data CreatePlayerState = CreatePlayerState
{ _cpsAbortable :: Bool
-- ^ Set to 'True' when player creation is abortable
, _cpsNumber :: Maybe Int
{ _cpsNumber :: Maybe Int
-- ^ The player's number
, _cpsName :: String
-- ^ The player's name
@@ -544,8 +541,7 @@ newGameState = GameState
-- | Constructor for a 'CreatePlayerState'
newCreatePlayerState :: CreatePlayerState
newCreatePlayerState = CreatePlayerState
{ _cpsAbortable = True
, _cpsNumber = Nothing
{ _cpsNumber = Nothing
, _cpsName = ""
, _cpsPosition = ""
, _cpsSuccessCallback = return ()