allow batch editing of goalie YTD/lifetime stats

src/Mtlstats/Control/EditGoalie.hs

@@ -46,23 +46,23 @@ selectC = promptController goalieToEditPrompt
 
 editC :: EditGoalieMode -> Controller
 editC = \case
-  EGMenu      -> menuC
+  EGMenu        -> menuC
-  EGNumber    -> numberC
+  EGNumber      -> numberC
-  EGName      -> nameC
+  EGName        -> nameC
-  EGYtd       -> ytdMenuC
+  EGYtd         -> ytdMenuC
-  EGLifetime  -> lifetimeMenuC
+  EGLifetime    -> lifetimeMenuC
-  EGYtdGames  -> ytdGamesC
+  EGYtdGames  b -> ytdGamesC  b
-  EGYtdMins   -> ytdMinsC
+  EGYtdMins   b -> ytdMinsC   b
-  EGYtdGoals  -> ytdGoalsC
+  EGYtdGoals  b -> ytdGoalsC  b
-  EGYtdWins   -> ytdWinsC
+  EGYtdWins   b -> ytdWinsC   b
-  EGYtdLosses -> ytdLossesC
+  EGYtdLosses b -> ytdLossesC b
-  EGYtdTies   -> ytdTiesC
+  EGYtdTies     -> ytdTiesC
-  EGLtGames   -> ltGamesC
+  EGLtGames   b -> ltGamesC   b
-  EGLtMins    -> ltMinsC
+  EGLtMins    b -> ltMinsC    b
-  EGLtGoals   -> ltGoalsC
+  EGLtGoals   b -> ltGoalsC   b
-  EGLtWins    -> ltWinsC
+  EGLtWins    b -> ltWinsC    b
-  EGLtLosses  -> ltLossesC
+  EGLtLosses  b -> ltLossesC  b
-  EGLtTies    -> ltTiesC
+  EGLtTies      -> ltTiesC
 
 menuC :: Controller
 menuC = menuControllerWith header editGoalieMenu
@@ -79,38 +79,38 @@ ytdMenuC = menuControllerWith header editGoalieYtdMenu
 lifetimeMenuC :: Controller
 lifetimeMenuC = menuControllerWith header editGoalieLtMenu
 
-ytdGamesC :: Controller
+ytdGamesC :: Bool -> Controller
-ytdGamesC = promptController editGoalieYtdGamesPrompt
+ytdGamesC = promptController . editGoalieYtdGamesPrompt
 
-ytdMinsC :: Controller
+ytdMinsC :: Bool -> Controller
-ytdMinsC = promptController editGoalieYtdMinsPrompt
+ytdMinsC = promptController . editGoalieYtdMinsPrompt
 
-ytdGoalsC :: Controller
+ytdGoalsC :: Bool -> Controller
-ytdGoalsC = promptController editGoalieYtdGoalsPrompt
+ytdGoalsC = promptController . editGoalieYtdGoalsPrompt
 
-ytdWinsC :: Controller
+ytdWinsC :: Bool -> Controller
-ytdWinsC = promptController editGoalieYtdWinsPrompt
+ytdWinsC = promptController . editGoalieYtdWinsPrompt
 
-ytdLossesC :: Controller
+ytdLossesC :: Bool -> Controller
-ytdLossesC = promptController editGoalieYtdLossesPrompt
+ytdLossesC = promptController . editGoalieYtdLossesPrompt
 
 ytdTiesC :: Controller
 ytdTiesC = promptController editGoalieYtdTiesPrompt
 
-ltGamesC :: Controller
+ltGamesC :: Bool -> Controller
-ltGamesC = promptController editGoalieLtGamesPrompt
+ltGamesC = promptController . editGoalieLtGamesPrompt
 
-ltMinsC :: Controller
+ltMinsC :: Bool -> Controller
-ltMinsC = promptController editGoalieLtMinsPrompt
+ltMinsC = promptController . editGoalieLtMinsPrompt
 
-ltGoalsC :: Controller
+ltGoalsC :: Bool -> Controller
-ltGoalsC = promptController editGoalieLtGoalsPrompt
+ltGoalsC = promptController . editGoalieLtGoalsPrompt
 
-ltWinsC :: Controller
+ltWinsC :: Bool -> Controller
-ltWinsC = promptController editGoalieLtWinsPrompt
+ltWinsC = promptController . editGoalieLtWinsPrompt
 
-ltLossesC :: Controller
+ltLossesC :: Bool -> Controller
-ltLossesC = promptController editGoalieLtLossesPrompt
+ltLossesC = promptController . editGoalieLtLossesPrompt
 
 ltTiesC :: Controller
 ltTiesC = promptController editGoalieLtTiesPrompt

src/Mtlstats/Menu/EditGoalie.hs

@@ -51,13 +51,14 @@ editGoalieMenu = Menu "*** EDIT GOALTENDER ***" () $ map
 editGoalieYtdMenu :: Menu ()
 editGoalieYtdMenu = editMenu "*** EDIT GOALTENDER YEAR-TO-DATE ***"
   --  key, label,                 value
-  [ ( '1', "Edit YTD games",      EGYtdGames  )
+  [ ( '1', "Edit all YTD stats",  EGYtdGames  True  )
-  , ( '2', "Edit YTD minutes",    EGYtdMins   )
+  , ( '2', "Edit YTD games",      EGYtdGames  False )
-  , ( '3', "Edit YTD goals",      EGYtdGoals  )
+  , ( '3', "Edit YTD minutes",    EGYtdMins   False )
-  , ( '4', "Edit YTD wins",       EGYtdWins   )
+  , ( '4', "Edit YTD goals",      EGYtdGoals  False )
-  , ( '5', "Edit YTD losses",     EGYtdLosses )
+  , ( '5', "Edit YTD wins",       EGYtdWins   False )
-  , ( '6', "Edit YTD ties",       EGYtdTies   )
+  , ( '6', "Edit YTD losses",     EGYtdLosses False )
-  , ( 'R', "Return to edit menu", EGMenu      )
+  , ( '7', "Edit YTD ties",       EGYtdTies         )
+  , ( 'R', "Return to edit menu", EGMenu            )
   ]
 
 -- | The 'Goalie' lifetime edit menu
@@ -65,13 +66,14 @@ editGoalieLtMenu :: Menu ()
 editGoalieLtMenu = editMenu
   "*** EDIT GOALTENDER LIFETIME ***"
   --  key, label,                   value
-  [ ( '1', "Edit lifetime games",   EGLtGames  )
+  [ ( '1', "Edit all lifetime stats", EGLtGames  True  )
-  , ( '2', "Edit lifetime minutes", EGLtMins   )
+  , ( '2', "Edit lifetime games",     EGLtGames  False )
-  , ( '3', "Edit lifetime goals",   EGLtGoals  )
+  , ( '3', "Edit lifetime minutes",   EGLtMins   False )
-  , ( '4', "Edit lifetime wins",    EGLtWins   )
+  , ( '4', "Edit lifetime goals",     EGLtGoals  False )
-  , ( '5', "Edit lifetime losses",  EGLtLosses )
+  , ( '5', "Edit lifetime wins",      EGLtWins   False )
-  , ( '6', "Edit lifetime ties",    EGLtTies   )
+  , ( '6', "Edit lifetime losses",    EGLtLosses False )
-  , ( 'R', "Return to edit menu",   EGMenu     )
+  , ( '7', "Edit lifetime ties",      EGLtTies         )
+  , ( 'R', "Return to edit menu",     EGMenu           )
   ]
 
 editMenu :: String -> [(Char, String, EditGoalieMode)] -> Menu ()

src/Mtlstats/Prompt/EditGoalie.hs

@@ -63,29 +63,59 @@ editGoalieNamePrompt = namePrompt "Goalie name: " $ \name ->
   else editGoalie EGMenu $ gName .~ name
 
 -- | Prompt to edit a goalie's YTD games played
-editGoalieYtdGamesPrompt :: Prompt
+editGoalieYtdGamesPrompt
-editGoalieYtdGamesPrompt = editNum "Year-to-date games played: " EGYtd
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieYtdGamesPrompt batchMode =
+  editNum "Year-to-date games played: " mode
   (gYtd.gsGames .~)
+  where
+    mode = if batchMode then EGYtdMins True else EGYtd
 
 -- | Prompt to edit a goalie's YTD minutes played
-editGoalieYtdMinsPrompt :: Prompt
+editGoalieYtdMinsPrompt
-editGoalieYtdMinsPrompt = editNum "Year-to-date minutes played: " EGYtd
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieYtdMinsPrompt batchMode =
+  editNum "Year-to-date minutes played: " mode
   (gYtd.gsMinsPlayed .~)
+  where
+    mode = if batchMode then EGYtdGoals True else EGYtd
 
 -- | Prompt to edit a goalie's YTD goales allowed
-editGoalieYtdGoalsPrompt :: Prompt
+editGoalieYtdGoalsPrompt
-editGoalieYtdGoalsPrompt = editNum "Year-to-date goals allowed: " EGYtd
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieYtdGoalsPrompt batchMode =
+  editNum "Year-to-date goals allowed: " mode
   (gYtd.gsGoalsAllowed .~)
+  where
+    mode = if batchMode then EGYtdWins True else EGYtd
 
 -- | Prompt to edit a goalie's YTD wins
-editGoalieYtdWinsPrompt :: Prompt
+editGoalieYtdWinsPrompt
-editGoalieYtdWinsPrompt = editNum "Year-to-date wins: " EGYtd
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieYtdWinsPrompt batchMode =
+  editNum "Year-to-date wins: " mode
   (gYtd.gsWins .~)
+  where
+    mode = if batchMode then EGYtdLosses True else EGYtd
 
 -- | Prompt to edit a goalie's YTD losses
-editGoalieYtdLossesPrompt :: Prompt
+editGoalieYtdLossesPrompt
-editGoalieYtdLossesPrompt = editNum "Year-to-date losses: " EGYtd
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieYtdLossesPrompt batchMode =
+  editNum "Year-to-date losses: " mode
   (gYtd.gsLosses .~)
+  where
+    mode = if batchMode then EGYtdTies else EGYtd
 
 -- | Prompt to edit a goalie's YTD ties
 editGoalieYtdTiesPrompt :: Prompt
@@ -93,29 +123,59 @@ editGoalieYtdTiesPrompt = editNum "Year-to-date ties: " EGYtd
   (gYtd.gsTies .~)
 
 -- | Prompt to edit a goalie's lifetime games played
-editGoalieLtGamesPrompt :: Prompt
+editGoalieLtGamesPrompt
-editGoalieLtGamesPrompt = editNum "Lifetime games played: " EGLifetime
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieLtGamesPrompt batchMode =
+  editNum "Lifetime games played: " mode
   (gLifetime.gsGames .~)
+  where
+    mode = if batchMode then EGLtMins True else EGLifetime
 
 -- | Prompt to edit a goalie's lifetime minutes played
-editGoalieLtMinsPrompt :: Prompt
+editGoalieLtMinsPrompt
-editGoalieLtMinsPrompt = editNum "Lifetime minutes played: " EGLifetime
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieLtMinsPrompt batchMode =
+  editNum "Lifetime minutes played: " mode
   (gLifetime.gsMinsPlayed .~)
+  where
+    mode = if batchMode then EGLtGoals True else EGLifetime
 
 -- | Prompt to edit a goalie's lifetime goals allowed
-editGoalieLtGoalsPrompt :: Prompt
+editGoalieLtGoalsPrompt
-editGoalieLtGoalsPrompt = editNum "Lifetime goals allowed: " EGLifetime
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieLtGoalsPrompt batchMode =
+  editNum "Lifetime goals allowed: " mode
   (gLifetime.gsGoalsAllowed .~)
+  where
+    mode = if batchMode then EGLtWins True else EGLifetime
 
 -- | Prompt to edit a goalie's lifetime wins
-editGoalieLtWinsPrompt :: Prompt
+editGoalieLtWinsPrompt
-editGoalieLtWinsPrompt = editNum "Lifetime wins: " EGLifetime
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieLtWinsPrompt batchMode =
+  editNum "Lifetime wins: " mode
   (gLifetime.gsWins .~)
+  where
+    mode = if batchMode then EGLtLosses True else EGLifetime
 
 -- | Prompt to edit a goalie's lifetime losses
-editGoalieLtLossesPrompt :: Prompt
+editGoalieLtLossesPrompt
-editGoalieLtLossesPrompt = editNum "Lifetime losses: " EGLifetime
+  :: Bool
+  -- ^ Indicates whether or not we're in batch mode
+  -> Prompt
+editGoalieLtLossesPrompt batchMode =
+  editNum "Lifetime losses: " mode
   (gLifetime.gsLosses .~)
+  where
+    mode = if batchMode then EGLtTies else EGLifetime
 
 -- | Prompt to edit a goalie's lifetime ties
 editGoalieLtTiesPrompt :: Prompt

src/Mtlstats/Types.hs

@@ -369,17 +369,17 @@ data EditGoalieMode
   | EGName
   | EGYtd
   | EGLifetime
-  | EGYtdGames
+  | EGYtdGames  Bool
-  | EGYtdMins
+  | EGYtdMins   Bool
-  | EGYtdGoals
+  | EGYtdGoals  Bool
-  | EGYtdWins
+  | EGYtdWins   Bool
-  | EGYtdLosses
+  | EGYtdLosses Bool
   | EGYtdTies
-  | EGLtGames
+  | EGLtGames   Bool
-  | EGLtMins
+  | EGLtMins    Bool
-  | EGLtGoals
+  | EGLtGoals   Bool
-  | EGLtWins
+  | EGLtWins    Bool
-  | EGLtLosses
+  | EGLtLosses  Bool
   | EGLtTies
   deriving (Eq, Show)