implenented Mtlstats.Control.EditGoalie.nameC

This commit is contained in:
Jonathan Lamothe 2019-11-13 11:34:25 -05:00
parent 6c4b08bfcd
commit 895f090f17
2 changed files with 6 additions and 1 deletions

View File

@ -70,7 +70,7 @@ numberC :: Controller
numberC = promptController editGoalieNumberPrompt numberC = promptController editGoalieNumberPrompt
nameC :: Controller nameC :: Controller
nameC = undefined nameC = promptController editGoalieNamePrompt
ytdMenuC :: Controller ytdMenuC :: Controller
ytdMenuC = undefined ytdMenuC = undefined

View File

@ -22,6 +22,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
module Mtlstats.Prompt.EditGoalie module Mtlstats.Prompt.EditGoalie
( goalieToEditPrompt ( goalieToEditPrompt
, editGoalieNumberPrompt , editGoalieNumberPrompt
, editGoalieNamePrompt
) where ) where
import Control.Monad.Trans.State (modify) import Control.Monad.Trans.State (modify)
@ -40,3 +41,7 @@ goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $
editGoalieNumberPrompt :: Prompt editGoalieNumberPrompt :: Prompt
editGoalieNumberPrompt = numPrompt "Goalie number: " $ editGoalieNumberPrompt = numPrompt "Goalie number: " $
modify . editGoalieNumber modify . editGoalieNumber
-- | Prompt to edit a goalie's name
editGoalieNamePrompt :: Prompt
editGoalieNamePrompt = undefined