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

implemented edit functions in Mtlstats.Actions.EditState module

Browse Source
This commit is contained in:
Jonathan Lamothe
2020-01-16 19:47:12 -05:00
parent 75a47ca852
commit d5de834510
5 changed files with 131 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Mtlstats/Control/EditStandings.hs
+11 -7
View File
@@ -34,15 +34,19 @@ import Mtlstats.Types
-- | Controller for the edit standings menu
editStandingsC :: EditStandingsMode -> Controller
editStandingsC = \case
ESMMenu -> menuControllerWith header editStandingsMenu
ESMHome -> editHomeStandingsC
ESMAway -> editAwayStandingsC
ESMMenu -> menuControllerWith header editStandingsMenu
ESMHome m -> editHomeStandingsC m
ESMAway m -> editAwayStandingsC m
editHomeStandingsC :: Controller
editHomeStandingsC = menuControllerWith header editHomeStandingsMenu
editHomeStandingsC :: ESMSubMode -> Controller
editHomeStandingsC = \case
ESMSubMenu -> menuControllerWith header editHomeStandingsMenu
_ -> undefined
editAwayStandingsC :: Controller
editAwayStandingsC = menuControllerWith header editAwayStandingsMenu
editAwayStandingsC :: ESMSubMode -> Controller
editAwayStandingsC = \case
ESMSubMenu -> menuControllerWith header editAwayStandingsMenu
_ -> undefined
header :: ProgState -> C.Update ()
header = do