implemented Mtlstats.Menu.EditStandings.subMenu

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

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
+  ]