diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index d6c3d95..4d5b827 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -72,7 +72,7 @@ newSeasonC = Controller } editMenuC :: Controller -editMenuC = undefined +editMenuC = menuController editMenu getPlayerNumC :: Controller getPlayerNumC = Controller diff --git a/src/Mtlstats/Menu.hs b/src/Mtlstats/Menu.hs index 77c6f63..76e6a17 100644 --- a/src/Mtlstats/Menu.hs +++ b/src/Mtlstats/Menu.hs @@ -31,7 +31,8 @@ module Mtlstats.Menu ( newSeasonMenu, gameMonthMenu, gameTypeMenu, - gameGoalieMenu + gameGoalieMenu, + editMenu ) where import Control.Monad.IO.Class (liftIO) @@ -186,3 +187,7 @@ gameGoalieMenu s = let (\(ch, (gid, goalie)) -> MenuItem ch (goalieSummary goalie) $ modify $ GI.setGameGoalie gid) $ zip ['1'..] goalies + +-- | The edit menu +editMenu :: Menu () +editMenu = undefined