fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented editPlayerNamePrompt

Browse Source
This commit is contained in:
Jonathan Lamothe 2019-11-01 06:22:48 -04:00
parent 911a61ba57
commit 5bf5a605aa
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/Mtlstats/Prompt/EditPlayer.hs
View File

@ -34,12 +34,17 @@ import Mtlstats.Util
-- | Prompt to edit a player's number -- | Prompt to edit a player's number
editPlayerNumPrompt :: Prompt editPlayerNumPrompt :: Prompt
editPlayerNumPrompt = numPrompt "Player number: " $ \n -> editPlayerNumPrompt = numPrompt "Player number: " $
whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid -> editPlayer . (pNumber .~)
modify
$ (database.dbPlayers %~ modifyNth pid (pNumber .~ n))
. (progMode.editPlayerStateL.epsMode .~ EPMenu)
-- | Prompt to edit a player's name -- | Prompt to edit a player's name
editPlayerNamePrompt :: Prompt editPlayerNamePrompt :: Prompt
editPlayerNamePrompt = undefined editPlayerNamePrompt = strPrompt "Player name: " $
editPlayer . (pName .~)
editPlayer :: (Player -> Player) -> Action ()
editPlayer f =
whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid ->
modify
$ (database.dbPlayers %~ modifyNth pid f)
. (progMode.editPlayerStateL.epsMode .~ EPMenu)