fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented Mtlstats.Control.editMenuC

This commit is contained in:
Jonathan Lamothe 2019-12-17 11:38:35 -05:00
parent 59d48ec154
commit 8988ad9146
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Mtlstats/Control.hs
View File

@ -72,7 +72,7 @@ newSeasonC = Controller
} }
editMenuC :: Controller editMenuC :: Controller
editMenuC = undefined editMenuC = menuController editMenu
getPlayerNumC :: Controller getPlayerNumC :: Controller
getPlayerNumC = Controller getPlayerNumC = Controller

7
src/Mtlstats/Menu.hs
View File

@ -31,7 +31,8 @@ module Mtlstats.Menu (
newSeasonMenu, newSeasonMenu,
gameMonthMenu, gameMonthMenu,
gameTypeMenu, gameTypeMenu,
gameGoalieMenu gameGoalieMenu,
editMenu
) where ) where
import Control.Monad.IO.Class (liftIO) import Control.Monad.IO.Class (liftIO)
@ -186,3 +187,7 @@ gameGoalieMenu s = let
(\(ch, (gid, goalie)) -> MenuItem ch (goalieSummary goalie) $ (\(ch, (gid, goalie)) -> MenuItem ch (goalieSummary goalie) $
modify $ GI.setGameGoalie gid) $ modify $ GI.setGameGoalie gid) $
zip ['1'..] goalies zip ['1'..] goalies
-- | The edit menu
editMenu :: Menu ()
editMenu = undefined