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 . -} -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