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