diff --git a/ChangeLog.md b/ChangeLog.md index eb5f099..cd47653 100644 --- a/ChangeLog.md +++ b/ChangeLog.md @@ -4,6 +4,7 @@ - Edit lifetime stats on new player/goalie creation - Sort goalies by minutes played - Subsort players by lifetime points +- Changed wording on edit menus ## 0.11.0 - Added active flag to players/goalies diff --git a/src/Mtlstats/Menu/EditGoalie.hs b/src/Mtlstats/Menu/EditGoalie.hs index 5b5b888..0859b83 100644 --- a/src/Mtlstats/Menu/EditGoalie.hs +++ b/src/Mtlstats/Menu/EditGoalie.hs @@ -38,12 +38,12 @@ editGoalieMenu = Menu "EDIT GOALTENDER" () $ map (\(ch, label, action) -> MenuItem ch label $ modify action) -- key, label, value - [ ( 'A', "EDIT NUMBER", set EGNumber ) - , ( 'B', "EDIT NAME", set EGName ) - , ( 'C', "TOGGLE ROOKIE FLAG", toggleRookie ) - , ( 'D', "TOGGLE ACTIVE FLAG", toggleActive ) - , ( 'E', "EDIT YTD STATS", set EGYtd ) - , ( 'F', "EDIT LIFETIME STATS", set EGLifetime ) + [ ( 'A', "NUMBER", set EGNumber ) + , ( 'B', "NAME", set EGName ) + , ( 'C', "ROOKIE FLAG", toggleRookie ) + , ( 'D', "ACTIVE FLAG", toggleActive ) + , ( 'E', "YTD STATS", set EGYtd ) + , ( 'F', "LIFETIME STATS", set EGLifetime ) , ( 'R', "RETURN TO EDIT MENU", edit ) ] @@ -56,14 +56,14 @@ editGoalieMenu = Menu "EDIT GOALTENDER" () $ map editGoalieYtdMenu :: Menu () editGoalieYtdMenu = editMenu "EDIT GOALTENDER YEAR-TO-DATE" -- key, label, value - [ ( 'A', "EDIT ALL YTD STATS", EGYtdGames True ) - , ( 'B', "EDIT YTD GAMES", EGYtdGames False ) - , ( 'C', "EDIT YTD MINUTES", EGYtdMins False ) - , ( 'D', "EDIT YTD GOALS", EGYtdGoals False ) - , ( 'E', "EDIT YTD SHUTOUTS", EGYtdShutouts False ) - , ( 'F', "EDIT YTD WINS", EGYtdWins False ) - , ( 'G', "EDIT YTD LOSSES", EGYtdLosses False ) - , ( 'H', "EDIT YTD TIES", EGYtdTies ) + [ ( 'A', "ALL YTD STATS", EGYtdGames True ) + , ( 'B', "YTD GAMES", EGYtdGames False ) + , ( 'C', "YTD MINUTES", EGYtdMins False ) + , ( 'D', "YTD GOALS", EGYtdGoals False ) + , ( 'E', "YTD SHUTOUTS", EGYtdShutouts False ) + , ( 'F', "YTD WINS", EGYtdWins False ) + , ( 'G', "YTD LOSSES", EGYtdLosses False ) + , ( 'H', "YTD TIES", EGYtdTies ) , ( 'R', "RETURN TO EDIT MENU", EGMenu ) ] @@ -71,16 +71,16 @@ editGoalieYtdMenu = editMenu "EDIT GOALTENDER YEAR-TO-DATE" editGoalieLtMenu :: Menu () editGoalieLtMenu = editMenu "EDIT GOALTENDER LIFETIME" - -- key, label, value - [ ( 'A', "EDIT ALL LIFETIME STATS", EGLtGames True ) - , ( 'B', "EDIT LIFETIME GAMES", EGLtGames False ) - , ( 'C', "EDIT LIFETIME MINUTES", EGLtMins False ) - , ( 'D', "EDIT LIFETIME GOALS", EGLtGoals False ) - , ( 'E', "EDIT LIFETIME SHUTOUTS", EGLtShutouts False ) - , ( 'F', "EDIT LIFETIME WINS", EGLtWins False ) - , ( 'G', "EDIT LIFETIME LOSSES", EGLtLosses False ) - , ( 'H', "EDIT LIFETIME TIES", EGLtTies ) - , ( 'R', "RETURN TO EDIT MENU", EGMenu ) + -- key, label, value + [ ( 'A', "ALL LIFETIME STATS", EGLtGames True ) + , ( 'B', "LIFETIME GAMES", EGLtGames False ) + , ( 'C', "LIFETIME MINUTES", EGLtMins False ) + , ( 'D', "LIFETIME GOALS", EGLtGoals False ) + , ( 'E', "LIFETIME SHUTOUTS", EGLtShutouts False ) + , ( 'F', "LIFETIME WINS", EGLtWins False ) + , ( 'G', "LIFETIME LOSSES", EGLtLosses False ) + , ( 'H', "LIFETIME TIES", EGLtTies ) + , ( 'R', "RETURN TO EDIT MENU", EGMenu ) ] editMenu :: String -> [(Char, String, EditGoalieMode)] -> Menu () diff --git a/src/Mtlstats/Menu/EditPlayer.hs b/src/Mtlstats/Menu/EditPlayer.hs index e603622..0a5f8cc 100644 --- a/src/Mtlstats/Menu/EditPlayer.hs +++ b/src/Mtlstats/Menu/EditPlayer.hs @@ -38,13 +38,13 @@ editPlayerMenu = Menu "EDIT PLAYER" () $ map (\(ch, label, action) -> MenuItem ch label $ modify action) -- key, label, value - [ ( 'A', "EDIT NUMBER", set EPNumber ) - , ( 'B', "EDIT NAME", set EPName ) - , ( 'C', "EDIT POSITION", set EPPosition ) - , ( 'D', "TOGGLE ROOKIE FLAG", toggleRookie ) - , ( 'E', "TOGGLE ACTIVE FLAG", toggleActive ) - , ( 'F', "EDIT YTD STATS", set EPYtd ) - , ( 'G', "EDIT LIFETIME STATS", set EPLifetime ) + [ ( 'A', "NUMBER", set EPNumber ) + , ( 'B', "NAME", set EPName ) + , ( 'C', "POSITION", set EPPosition ) + , ( 'D', "ROOKIE FLAG", toggleRookie ) + , ( 'E', "ACTIVE FLAG", toggleActive ) + , ( 'F', "YTD STATS", set EPYtd ) + , ( 'G', "LIFETIME STATS", set EPLifetime ) , ( 'R', "RETURN TO EDIT MENU", edit ) ] @@ -58,10 +58,10 @@ editPlayerYtdMenu :: Menu () editPlayerYtdMenu = editMenu "EDIT PLAYER YEAR-TO-DATE" -- key, label, value - [ ( 'A', "EDIT ALL YTD STATS", EPYtdGoals True ) - , ( 'B', "EDIT YTD GOALS", EPYtdGoals False ) - , ( 'C', "EDIT YTD ASSISTS", EPYtdAssists False ) - , ( 'D', "EDIT YTD PENALTY MINS", EPYtdPMin ) + [ ( 'A', "ALL YTD STATS", EPYtdGoals True ) + , ( 'B', "YTD GOALS", EPYtdGoals False ) + , ( 'C', "YTD ASSISTS", EPYtdAssists False ) + , ( 'D', "YTD PENALTY MINS", EPYtdPMin ) , ( 'R', "RETURN TO PLAYER EDIT MENU", EPMenu ) ] @@ -70,10 +70,10 @@ editPlayerLtMenu :: Menu () editPlayerLtMenu = editMenu "EDIT PLAYER LIFETIME" -- key, label, value - [ ( 'A', "EDIT ALL LIFETIME STATS", EPLtGoals True ) - , ( 'B', "EDIT LIFETIME GOALS", EPLtGoals False ) - , ( 'C', "EDIT LIFETIME ASSITS", EPLtAssists False ) - , ( 'D', "EDIT LIFETIME PENALTY MINS", EPLtPMin ) + [ ( 'A', "ALL LIFETIME STATS", EPLtGoals True ) + , ( 'B', "LIFETIME GOALS", EPLtGoals False ) + , ( 'C', "LIFETIME ASSITS", EPLtAssists False ) + , ( 'D', "LIFETIME PENALTY MINS", EPLtPMin ) , ( 'R', "RETURN TO EDIT PLAYER MENU", EPMenu ) ]