implemented editStandingsMenu

src/Mtlstats/Actions/EditStandings.hs

@@ -0,0 +1,35 @@
+{- |
+
+mtlstats
+Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe
+<rheal.lamothe@gmail.com>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or (at
+your option) any later version.
+
+This program is distributed in the hope that it will be useful, but
+WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <https://www.gnu.org/licenses/>.
+
+-}
+
+module Mtlstats.Actions.EditStandings
+  ( editHomeStandings
+  , editRoadStandings
+  ) where
+
+import Mtlstats.Types
+
+-- | Edits the home standings
+editHomeStandings :: ProgState -> ProgState
+editHomeStandings = undefined
+
+-- | Edits the road standings
+editRoadStandings :: ProgState -> ProgState
+editRoadStandings = undefined

src/Mtlstats/Menu/EditStandings.hs

@@ -21,7 +21,18 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 module Mtlstats.Menu.EditStandings (editStandingsMenu) where
 
+import Control.Monad.Trans.State (modify)
+
+import Mtlstats.Actions
+import Mtlstats.Actions.EditStandings
 import Mtlstats.Types.Menu
 
 editStandingsMenu :: Menu ()
-editStandingsMenu = undefined
+editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
+  [ MenuItem '1' "Edit home standings" $
+    modify editHomeStandings
+  , MenuItem '2' "Edit road standings" $
+    modify editRoadStandings
+  , MenuItem 'R' "Return to main menu" $
+    modify backHome
+  ]