From d50d055b0b539199f28421edd9e26f156f034ae4 Mon Sep 17 00:00:00 2001
From: Jonathan Lamothe <jlamothe1980@gmail.com>
Date: Thu, 16 Jan 2020 17:17:24 -0500
Subject: [PATCH] implemented editHomeStandings and editAwayStandings

---
 src/Mtlstats/Control/EditStandings.hs |  6 +++---
 src/Mtlstats/Menu/EditStandings.hs    | 12 +++++++++++-
 2 files changed, 14 insertions(+), 4 deletions(-)

diff --git a/src/Mtlstats/Control/EditStandings.hs b/src/Mtlstats/Control/EditStandings.hs
index c5634c4..12448df 100644
--- a/src/Mtlstats/Control/EditStandings.hs
+++ b/src/Mtlstats/Control/EditStandings.hs
@@ -38,11 +38,11 @@ editStandingsC = \case
   ESMHome -> editHomeStandingsC
   ESMAway -> editAwayStandingsC
 
-editHomeStandingsC ::  Controller
-editHomeStandingsC = undefined
+editHomeStandingsC :: Controller
+editHomeStandingsC = menuControllerWith header editHomeStandingsMenu
 
 editAwayStandingsC :: Controller
-editAwayStandingsC = undefined
+editAwayStandingsC = menuControllerWith header editAwayStandingsMenu
 
 header :: ProgState -> C.Update ()
 header = do
diff --git a/src/Mtlstats/Menu/EditStandings.hs b/src/Mtlstats/Menu/EditStandings.hs
index 9ef9b31..769bac3 100644
--- a/src/Mtlstats/Menu/EditStandings.hs
+++ b/src/Mtlstats/Menu/EditStandings.hs
@@ -19,7 +19,11 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 -}
 
-module Mtlstats.Menu.EditStandings (editStandingsMenu) where
+module Mtlstats.Menu.EditStandings
+  ( editStandingsMenu
+  , editHomeStandingsMenu
+  , editAwayStandingsMenu
+  ) where
 
 import Control.Monad.Trans.State (modify)
 
@@ -36,3 +40,9 @@ editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
   , MenuItem 'R' "Return to main menu" $
     modify backHome
   ]
+
+editHomeStandingsMenu :: Menu ()
+editHomeStandingsMenu = undefined
+
+editAwayStandingsMenu :: Menu ()
+editAwayStandingsMenu = undefined