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

implemented editing prompts

This commit is contained in:
Jonathan Lamothe 2020-01-16 21:34:19 -05:00
parent dcbd68cdda
commit 83c408cea2
1 changed files with 34 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/Mtlstats/Prompt/EditStandings.hs
View File

@ -32,34 +32,58 @@ module Mtlstats.Prompt.EditStandings
, editAwayGoalsAgainstPrompt , editAwayGoalsAgainstPrompt
) where ) where
import Control.Monad.Trans.State (modify)
import Lens.Micro ((.~), (%~))
import Mtlstats.Prompt
import Mtlstats.Types import Mtlstats.Types
editHomeWinsPrompt :: Prompt editHomeWinsPrompt :: Prompt
editHomeWinsPrompt = undefined editHomeWinsPrompt =
mkPrompt "Home wins: " (dbHomeGameStats.gmsWins .~)
editHomeLossesPrompt :: Prompt editHomeLossesPrompt :: Prompt
editHomeLossesPrompt = undefined editHomeLossesPrompt =
mkPrompt "Home losses: " (dbHomeGameStats.gmsLosses .~)
editHomeOvertimePrompt :: Prompt editHomeOvertimePrompt :: Prompt
editHomeOvertimePrompt = undefined editHomeOvertimePrompt =
mkPrompt "Home overtime games: " (dbHomeGameStats.gmsOvertime .~)
editHomeGoalsForPrompt :: Prompt editHomeGoalsForPrompt :: Prompt
editHomeGoalsForPrompt = undefined editHomeGoalsForPrompt =
mkPrompt "Home goals for: " (dbHomeGameStats.gmsGoalsFor .~)
editHomeGoalsAgainstPrompt :: Prompt editHomeGoalsAgainstPrompt :: Prompt
editHomeGoalsAgainstPrompt = undefined editHomeGoalsAgainstPrompt =
mkPrompt "Home goals against: " (dbHomeGameStats.gmsGoalsAgainst .~)
editAwayWinsPrompt :: Prompt editAwayWinsPrompt :: Prompt
editAwayWinsPrompt = undefined editAwayWinsPrompt =
mkPrompt "Road wins: " (dbAwayGameStats.gmsWins .~)
editAwayLossesPrompt :: Prompt editAwayLossesPrompt :: Prompt
editAwayLossesPrompt = undefined editAwayLossesPrompt =
mkPrompt "Road losses: " (dbAwayGameStats.gmsLosses .~)
editAwayOvertimePrompt :: Prompt editAwayOvertimePrompt :: Prompt
editAwayOvertimePrompt = undefined editAwayOvertimePrompt =
mkPrompt "Road overtime games: " (dbAwayGameStats.gmsOvertime .~)
editAwayGoalsForPrompt :: Prompt editAwayGoalsForPrompt :: Prompt
editAwayGoalsForPrompt = undefined editAwayGoalsForPrompt =
mkPrompt "Road goals for: " (dbAwayGameStats.gmsGoalsFor .~)
editAwayGoalsAgainstPrompt :: Prompt editAwayGoalsAgainstPrompt :: Prompt
editAwayGoalsAgainstPrompt = undefined editAwayGoalsAgainstPrompt =
mkPrompt "Road goals against: " (dbAwayGameStats.gmsGoalsAgainst .~)
mkPrompt :: String -> (Int -> Database -> Database) -> Prompt
mkPrompt pStr f = numPromptWithFallback pStr
(modify subMenu)
(\n -> modify
$ (database %~ f n)
. subMenu)
subMenu :: ProgState -> ProgState
subMenu = progMode.editStandingsModeL.esmSubModeL .~ ESMSubMenu