From c3bac5e624b039f52090702b35166da16fe4a2ad Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Wed, 15 Jan 2020 00:34:45 -0500 Subject: [PATCH] created Mtlstats.Control.EditStandings module --- src/Mtlstats/Control.hs | 3 ++- src/Mtlstats/Control/EditStandings.hs | 28 +++++++++++++++++++++++++++ 2 files changed, 30 insertions(+), 1 deletion(-) create mode 100644 src/Mtlstats/Control/EditStandings.hs diff --git a/src/Mtlstats/Control.hs b/src/Mtlstats/Control.hs index 6f183fa..39d6ab7 100644 --- a/src/Mtlstats/Control.hs +++ b/src/Mtlstats/Control.hs @@ -31,6 +31,7 @@ import qualified UI.NCurses as C import Mtlstats.Actions import Mtlstats.Control.EditGoalie import Mtlstats.Control.EditPlayer +import Mtlstats.Control.EditStandings import Mtlstats.Control.NewGame import Mtlstats.Handlers import Mtlstats.Menu @@ -56,7 +57,7 @@ dispatch s = case s^.progMode of | otherwise -> confirmCreateGoalieC EditPlayer eps -> editPlayerC eps EditGoalie egs -> editGoalieC egs - EditStandings -> undefined + EditStandings -> editStandingsC mainMenuC :: Controller mainMenuC = Controller diff --git a/src/Mtlstats/Control/EditStandings.hs b/src/Mtlstats/Control/EditStandings.hs new file mode 100644 index 0000000..d10789f --- /dev/null +++ b/src/Mtlstats/Control/EditStandings.hs @@ -0,0 +1,28 @@ +{- | + +mtlstats +Copyright (C) 1984, 1985, 2019, 2020 Rhéal Lamothe + + +This program is free software: you can redistribute it and/or modify +it under the terms of the GNU General Public License as published by +the Free Software Foundation, either version 3 of the License, or (at +your option) any later version. + +This program is distributed in the hope that it will be useful, but +WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program. If not, see . + +-} + +module Mtlstats.Control.EditStandings (editStandingsC) where + +import Mtlstats.Types + +-- | Controller for the edit standings menu +editStandingsC :: Controller +editStandingsC = undefined