implemented editMenu

This commit is contained in:
Jonathan Lamothe 2019-12-17 11:48:01 -05:00
parent 8988ad9146
commit 1d6a4aa7f3

View File

@ -190,4 +190,11 @@ gameGoalieMenu s = let
-- | The edit menu -- | The edit menu
editMenu :: Menu () editMenu :: Menu ()
editMenu = undefined editMenu = Menu "*** EDIT ***" ()
[ MenuItem '1' "Edit Player" $
modify editPlayer
, MenuItem '2' "Edit Goalie" $
modify editGoalie
, MenuItem 'R' "Return to Main Menu" $
modify backHome
]