diff --git a/src/Mtlstats/Prompt.hs b/src/Mtlstats/Prompt.hs index bf5930c..5f43c06 100644 --- a/src/Mtlstats/Prompt.hs +++ b/src/Mtlstats/Prompt.hs @@ -191,7 +191,7 @@ playerNamePrompt = strPrompt "Player name: " $ -- | Prompts for a new player's position playerPosPrompt :: Prompt -playerPosPrompt = strPrompt "Player position: " $ +playerPosPrompt = ucStrPrompt "Player position: " $ modify . (progMode.createPlayerStateL.cpsPosition .~) -- | Prompts tor the goalie's number diff --git a/src/Mtlstats/Prompt/EditPlayer.hs b/src/Mtlstats/Prompt/EditPlayer.hs index dc6bb7e..ff44a79 100644 --- a/src/Mtlstats/Prompt/EditPlayer.hs +++ b/src/Mtlstats/Prompt/EditPlayer.hs @@ -51,7 +51,7 @@ editPlayerNamePrompt = strPrompt "Player name: " $ -- | Prompt to edit a player's position editPlayerPosPrompt :: Prompt -editPlayerPosPrompt = strPrompt "Player position: " $ +editPlayerPosPrompt = ucStrPrompt "Player position: " $ editPlayer . (pPosition .~) -- | Prompt to edit a player's year-to-date goals