implemented editHomeStandings and editAwayStandings

src/Mtlstats/Control/EditStandings.hs

@@ -38,11 +38,11 @@ editStandingsC = \case
   ESMHome -> editHomeStandingsC
   ESMAway -> editAwayStandingsC
 
-editHomeStandingsC ::  Controller
+editHomeStandingsC :: Controller
-editHomeStandingsC = undefined
+editHomeStandingsC = menuControllerWith header editHomeStandingsMenu
 
 editAwayStandingsC :: Controller
-editAwayStandingsC = undefined
+editAwayStandingsC = menuControllerWith header editAwayStandingsMenu
 
 header :: ProgState -> C.Update ()
 header = do

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