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

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

@ -39,10 +39,10 @@ editStandingsC = \case
ESMAway -> editAwayStandingsC
editHomeStandingsC :: Controller
editHomeStandingsC = undefined
editHomeStandingsC = menuControllerWith header editHomeStandingsMenu
editAwayStandingsC :: Controller
editAwayStandingsC = undefined
editAwayStandingsC = menuControllerWith header editAwayStandingsMenu
header :: ProgState -> C.Update ()
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)
@ -36,3 +40,9 @@ editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
, MenuItem 'R' "Return to main menu" $
modify backHome
]
editHomeStandingsMenu :: Menu ()
editHomeStandingsMenu = undefined
editAwayStandingsMenu :: Menu ()
editAwayStandingsMenu = undefined