bugfix: don't abort player selection
...upon cancellation of player creation
This commit is contained in:
@@ -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 ()
|
||||
|
||||
Reference in New Issue
Block a user