diff --git a/src/Mtlstats/Actions/EditStandings.hs b/src/Mtlstats/Actions/EditStandings.hs index 6562b00..6c81837 100644 --- a/src/Mtlstats/Actions/EditStandings.hs +++ b/src/Mtlstats/Actions/EditStandings.hs @@ -23,6 +23,11 @@ module Mtlstats.Actions.EditStandings ( editStandings , editHomeStandings , editAwayStandings + , editWins + , editLosses + , editOvertime + , editGoalsFor + , editGoalsAgainst ) where import Lens.Micro ((.~)) @@ -40,3 +45,23 @@ editHomeStandings = progMode .~ EditStandings ESMHome -- | Edits the road standings editAwayStandings :: ProgState -> ProgState editAwayStandings = progMode .~ EditStandings ESMAway + +-- | Changes to edit wins mode +editWins :: ProgState -> ProgState +editWins = undefined + +-- | Changes to edit losses mode +editLosses :: ProgState -> ProgState +editLosses = undefined + +-- | Changes to edit overtime mode +editOvertime :: ProgState -> ProgState +editOvertime = undefined + +-- | Changes to edit goals for mode +editGoalsFor :: ProgState -> ProgState +editGoalsFor = undefined + +-- | Changes to edit goals against mode +editGoalsAgainst :: ProgState -> ProgState +editGoalsAgainst = undefined diff --git a/src/Mtlstats/Menu/EditStandings.hs b/src/Mtlstats/Menu/EditStandings.hs index 33294ef..6e41392 100644 --- a/src/Mtlstats/Menu/EditStandings.hs +++ b/src/Mtlstats/Menu/EditStandings.hs @@ -48,4 +48,17 @@ editAwayStandingsMenu :: Menu () editAwayStandingsMenu = subMenu "ROAD" subMenu :: String -> Menu () -subMenu = undefined +subMenu str = Menu ("*** " ++ str ++ " STANDINGS ***") () + [ MenuItem '1' "Edit wins" $ + modify editWins + , MenuItem '2' "Edit losses" $ + modify editLosses + , MenuItem '3' "Edit overtime games" $ + modify editOvertime + , MenuItem '4' "Edit goals for" $ + modify editGoalsFor + , MenuItem '5' "Edit goals against" $ + modify editGoalsAgainst + , MenuItem 'R' "Return to edit standings menu" $ + modify editStandings + ]