implemented year-to-date assist editing
This commit is contained in:
parent
4e9b3f635d
commit
24b304047c
@ -103,7 +103,12 @@ ytdGoalsC = Controller
|
||||
}
|
||||
|
||||
ytdAssistsC :: Controller
|
||||
ytdAssistsC = undefined
|
||||
ytdAssistsC = Controller
|
||||
{ drawController = drawPrompt editPlayerYtdAssistsPrompt
|
||||
, handleController = \e -> do
|
||||
promptHandler editPlayerYtdAssistsPrompt e
|
||||
return True
|
||||
}
|
||||
|
||||
ytdPMinC :: Controller
|
||||
ytdPMinC = undefined
|
||||
|
@ -24,6 +24,7 @@ module Mtlstats.Prompt.EditPlayer
|
||||
, editPlayerNamePrompt
|
||||
, editPlayerPosPrompt
|
||||
, editPlayerYtdGoalsPrompt
|
||||
, editPlayerYtdAssistsPrompt
|
||||
) where
|
||||
|
||||
import Control.Monad.Extra (whenJustM)
|
||||
@ -54,6 +55,11 @@ editPlayerYtdGoalsPrompt :: Prompt
|
||||
editPlayerYtdGoalsPrompt = numPrompt "Year-to-date goals: " $
|
||||
editPlayer . (pYtd.psGoals .~)
|
||||
|
||||
-- | Prompt to edit a player's year-to-date assists
|
||||
editPlayerYtdAssistsPrompt :: Prompt
|
||||
editPlayerYtdAssistsPrompt = numPrompt "Year-to-date assists: " $
|
||||
editPlayer . (pYtd.psAssists .~)
|
||||
|
||||
editPlayer :: (Player -> Player) -> Action ()
|
||||
editPlayer f =
|
||||
whenJustM (gets (^.progMode.editPlayerStateL.epsSelectedPlayer)) $ \pid ->
|
||||
|
Loading…
x
Reference in New Issue
Block a user