added "Edit Standings" to edit menu
This commit is contained in:
parent
a909b9ba7a
commit
82603ba504
|
@ -36,6 +36,7 @@ module Mtlstats.Actions
|
|||
, editSelectedPlayer
|
||||
, editGoalie
|
||||
, editSelectedGoalie
|
||||
, editStandings
|
||||
, addPlayer
|
||||
, addGoalie
|
||||
, resetCreatePlayerState
|
||||
|
@ -157,6 +158,10 @@ editSelectedGoalie f s = fromMaybe s $ do
|
|||
goalies' = modifyNth n f goalies
|
||||
Just $ s & database.dbGoalies .~ goalies'
|
||||
|
||||
-- | Enters edit standings mode
|
||||
editStandings :: ProgState -> ProgState
|
||||
editStandings = undefined
|
||||
|
||||
-- | Adds the entered player to the roster
|
||||
addPlayer :: ProgState -> ProgState
|
||||
addPlayer s = fromMaybe s $ do
|
||||
|
|
|
@ -180,6 +180,8 @@ editMenu = Menu "*** EDIT ***" ()
|
|||
modify editPlayer
|
||||
, MenuItem '4' "Edit Goalie" $
|
||||
modify editGoalie
|
||||
, MenuItem '5' "Edit Standings" $
|
||||
modify editStandings
|
||||
, MenuItem 'R' "Return to Main Menu" $
|
||||
modify backHome
|
||||
]
|
||||
|
|
Loading…
Reference in New Issue
Block a user