From 6a0d1f72038f3d9046e259bd7a87f10eb995ed95 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Wed, 15 Jan 2020 23:21:37 -0500
Subject: [PATCH] implemented editStandingsMenu

---
 src/Mtlstats/Actions/EditStandings.hs | 35 +++++++++++++++++++++++++++
 src/Mtlstats/Menu/EditStandings.hs    | 13 +++++++++-
 2 files changed, 47 insertions(+), 1 deletion(-)
 create mode 100644 src/Mtlstats/Actions/EditStandings.hs

diff --git a/src/Mtlstats/Actions/EditStandings.hs b/src/Mtlstats/Actions/EditStandings.hs
new file mode 100644
index 0000000..3465885
--- /dev/null
+++ b/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
diff --git a/src/Mtlstats/Menu/EditStandings.hs b/src/Mtlstats/Menu/EditStandings.hs
index 259102a..1f185a2 100644
--- a/src/Mtlstats/Menu/EditStandings.hs
+++ b/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
+  ]