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

changed menu style

Browse Source 
...to be closer to the original program's menu style
This commit is contained in:
Jonathan Lamothe
2020-01-22 20:59:09 -05:00
parent 4c7a756c5e
commit 72b6f05700
6 changed files with 96 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
src/Mtlstats/Menu/EditStandings.hs
View File

@@ -32,12 +32,12 @@ import Mtlstats.Actions.EditStandings
import Mtlstats.Types.Menu
editStandingsMenu :: Menu ()
editStandingsMenu = Menu "*** EDIT STANDINGS ***" ()
[ MenuItem '1' "Edit home standings" $
editStandingsMenu = Menu "EDIT STANDINGS" ()
[ MenuItem 'A' "EDIT HOME STANDINGS" $
modify editHomeStandings
, MenuItem '2' "Edit road standings" $
, MenuItem 'B' "EDIT ROAD STANDINGS" $
modify editAwayStandings
, MenuItem 'R' "Return to main menu" $
, MenuItem 'R' "RETURN TO MAIN MENU" $
modify backHome
]
@@ -48,17 +48,17 @@ editAwayStandingsMenu :: Menu ()
editAwayStandingsMenu = subMenu "ROAD"
subMenu :: String -> Menu ()
subMenu str = Menu ("*** " ++ str ++ " STANDINGS ***") ()
[ MenuItem '1' "Edit wins" $
subMenu str = Menu (str ++ " STANDINGS") ()
[ MenuItem 'W' "EDIT WINS" $
modify editWins
, MenuItem '2' "Edit losses" $
, MenuItem 'L' "EDIT LOSSES" $
modify editLosses
, MenuItem '3' "Edit overtime games" $
, MenuItem 'O' "EDIT OVERTIME GAMES" $
modify editOvertime
, MenuItem '4' "Edit goals for" $
, MenuItem 'F' "EDIT GOALS FOR" $
modify editGoalsFor
, MenuItem '5' "Edit goals against" $
, MenuItem 'A' "EDIT GOALS AGAINST" $
modify editGoalsAgainst
, MenuItem 'R' "Return to edit standings menu" $
, MenuItem 'R' "RETURN TO EDIT STANDINGS MENU" $
modify editStandings
]