implenented Mtlstats.Control.EditGoalie.nameC
This commit is contained in:
parent
6c4b08bfcd
commit
895f090f17
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user