From 1d6a4aa7f3f911d902be061d4d9988aa7b68560a Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Tue, 17 Dec 2019 11:48:01 -0500 Subject: [PATCH] implemented editMenu --- src/Mtlstats/Menu.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/Menu.hs b/src/Mtlstats/Menu.hs index 76e6a17..28c57da 100644 --- a/src/Mtlstats/Menu.hs +++ b/src/Mtlstats/Menu.hs @@ -190,4 +190,11 @@ gameGoalieMenu s = let -- | The edit 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 + ]