diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 802b3b1..f9d6f8f 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -73,7 +73,7 @@ nameC :: Controller nameC = promptController editGoalieNamePrompt ytdMenuC :: Controller -ytdMenuC = undefined +ytdMenuC = menuControllerWith header editGoalieYtdMenu lifetimeMenuC :: Controller lifetimeMenuC = undefined diff --git a/src/Mtlstats/Menu/EditGoalie.hs b/src/Mtlstats/Menu/EditGoalie.hs index d685255..3023747 100644 --- a/src/Mtlstats/Menu/EditGoalie.hs +++ b/src/Mtlstats/Menu/EditGoalie.hs @@ -19,7 +19,10 @@ along with this program. If not, see . -} -module Mtlstats.Menu.EditGoalie (editGoalieMenu) where +module Mtlstats.Menu.EditGoalie + ( editGoalieMenu + , editGoalieYtdMenu + ) where import Control.Monad.Trans.State (modify) import Data.Maybe (maybe) @@ -42,3 +45,7 @@ editGoalieMenu = Menu "*** EDIT GOALTENDER ***" () $ map , ( '4', "Edit Lifetime stats", Just EGLifetime ) , ( 'R', "Return to Main Menu", Nothing ) ] + +-- | The 'Goalie' YTD edit menu +editGoalieYtdMenu :: Menu () +editGoalieYtdMenu = undefined