implenented Mtlstats.Control.EditGoalie.nameC
This commit is contained in:
parent
6c4b08bfcd
commit
895f090f17
|
@ -70,7 +70,7 @@ numberC :: Controller
|
|||
numberC = promptController editGoalieNumberPrompt
|
||||
|
||||
nameC :: Controller
|
||||
nameC = undefined
|
||||
nameC = promptController editGoalieNamePrompt
|
||||
|
||||
ytdMenuC :: Controller
|
||||
ytdMenuC = undefined
|
||||
|
|
|
@ -22,6 +22,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|||
module Mtlstats.Prompt.EditGoalie
|
||||
( goalieToEditPrompt
|
||||
, editGoalieNumberPrompt
|
||||
, editGoalieNamePrompt
|
||||
) where
|
||||
|
||||
import Control.Monad.Trans.State (modify)
|
||||
|
@ -40,3 +41,7 @@ goalieToEditPrompt = selectGoaliePrompt "Goalie to edit: " $
|
|||
editGoalieNumberPrompt :: Prompt
|
||||
editGoalieNumberPrompt = numPrompt "Goalie number: " $
|
||||
modify . editGoalieNumber
|
||||
|
||||
-- | Prompt to edit a goalie's name
|
||||
editGoalieNamePrompt :: Prompt
|
||||
editGoalieNamePrompt = undefined
|
||||
|
|
Loading…
Reference in New Issue
Block a user