fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

implemented editHomeStandings and editAwayStandings

This commit is contained in:
Jonathan Lamothe 2020-01-16 17:17:24 -05:00
parent 9c7c295a4b
commit d50d055b0b
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Mtlstats/Control/EditStandings.hs
View File

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

12
src/Mtlstats/Menu/EditStandings.hs
View File

@ -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) import Control.Monad.Trans.State (modify)
@ -36,3 +40,9 @@ editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
, MenuItem 'R' "Return to main menu" $ , MenuItem 'R' "Return to main menu" $
modify backHome modify backHome
] ]
editHomeStandingsMenu :: Menu ()
editHomeStandingsMenu = undefined
editAwayStandingsMenu :: Menu ()
editAwayStandingsMenu = undefined