implemented editStandingsMenu
This commit is contained in:
@@ -21,7 +21,18 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||
|
||||
module Mtlstats.Menu.EditStandings (editStandingsMenu) where
|
||||
|
||||
import Control.Monad.Trans.State (modify)
|
||||
|
||||
import Mtlstats.Actions
|
||||
import Mtlstats.Actions.EditStandings
|
||||
import Mtlstats.Types.Menu
|
||||
|
||||
editStandingsMenu :: Menu ()
|
||||
editStandingsMenu = undefined
|
||||
editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
|
||||
[ MenuItem '1' "Edit home standings" $
|
||||
modify editHomeStandings
|
||||
, MenuItem '2' "Edit road standings" $
|
||||
modify editRoadStandings
|
||||
, MenuItem 'R' "Return to main menu" $
|
||||
modify backHome
|
||||
]
|
||||
|
||||
Reference in New Issue
Block a user