From d1773324d511b5564673d6cf73540b1123f20d27 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Tue, 12 Nov 2019 23:44:39 -0500 Subject: [PATCH] added "Edit Goalie" to main menu --- src/Mtlstats/Actions.hs | 5 +++++ src/Mtlstats/Menu.hs | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/Actions.hs b/src/Mtlstats/Actions.hs index 2e59846..2b3942d 100644 --- a/src/Mtlstats/Actions.hs +++ b/src/Mtlstats/Actions.hs @@ -30,6 +30,7 @@ module Mtlstats.Actions , createPlayer , createGoalie , editPlayer + , editGoalie , addPlayer , addGoalie , resetCreatePlayerState @@ -93,6 +94,10 @@ createGoalie = let editPlayer :: ProgState -> ProgState editPlayer = progMode .~ EditPlayer newEditPlayerState +-- | Starts the 'Goalie' editing process +editGoalie :: ProgState -> ProgState +editGoalie = undefined + -- | Adds the entered player to the roster addPlayer :: ProgState -> ProgState addPlayer s = fromMaybe s $ do diff --git a/src/Mtlstats/Menu.hs b/src/Mtlstats/Menu.hs index 4967b2a..b2c04e1 100644 --- a/src/Mtlstats/Menu.hs +++ b/src/Mtlstats/Menu.hs @@ -104,7 +104,9 @@ mainMenu = Menu "*** MAIN MENU ***" True modify createGoalie >> return True , MenuItem '5' "Edit Player" $ modify editPlayer >> return True - , MenuItem '6' "Exit" $ do + , MenuItem '6' "Edit Goalie" $ + modify editGoalie >> return True + , MenuItem 'X' "Exit" $ do db <- gets $ view database liftIO $ do dir <- getAppUserDataDirectory appName