implemented Mtlstats.Control.EditGoalie.ytdMenuC
This commit is contained in:
parent
61ba781c5d
commit
35eda4a309
|
@ -73,7 +73,7 @@ nameC :: Controller
|
||||||
nameC = promptController editGoalieNamePrompt
|
nameC = promptController editGoalieNamePrompt
|
||||||
|
|
||||||
ytdMenuC :: Controller
|
ytdMenuC :: Controller
|
||||||
ytdMenuC = undefined
|
ytdMenuC = menuControllerWith header editGoalieYtdMenu
|
||||||
|
|
||||||
lifetimeMenuC :: Controller
|
lifetimeMenuC :: Controller
|
||||||
lifetimeMenuC = undefined
|
lifetimeMenuC = undefined
|
||||||
|
|
|
@ -19,7 +19,10 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
-}
|
-}
|
||||||
|
|
||||||
module Mtlstats.Menu.EditGoalie (editGoalieMenu) where
|
module Mtlstats.Menu.EditGoalie
|
||||||
|
( editGoalieMenu
|
||||||
|
, editGoalieYtdMenu
|
||||||
|
) where
|
||||||
|
|
||||||
import Control.Monad.Trans.State (modify)
|
import Control.Monad.Trans.State (modify)
|
||||||
import Data.Maybe (maybe)
|
import Data.Maybe (maybe)
|
||||||
|
@ -42,3 +45,7 @@ editGoalieMenu = Menu "*** EDIT GOALTENDER ***" () $ map
|
||||||
, ( '4', "Edit Lifetime stats", Just EGLifetime )
|
, ( '4', "Edit Lifetime stats", Just EGLifetime )
|
||||||
, ( 'R', "Return to Main Menu", Nothing )
|
, ( 'R', "Return to Main Menu", Nothing )
|
||||||
]
|
]
|
||||||
|
|
||||||
|
-- | The 'Goalie' YTD edit menu
|
||||||
|
editGoalieYtdMenu :: Menu ()
|
||||||
|
editGoalieYtdMenu = undefined
|
||||||
|
|
Loading…
Reference in New Issue
Block a user