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

edit lifetime stats on goalie creation

Browse Source
This commit is contained in:
Jonathan Lamothe
2020-01-31 21:23:22 -05:00
parent 13a1949446
commit 5771091f18
1 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/Mtlstats/Control/CreateGoalie.hs
View File

@@ -24,7 +24,7 @@ module Mtlstats.Control.CreateGoalie (createGoalieC) where
import Control.Monad (join) import Control.Monad (join)
import Control.Monad.Trans.State (gets, modify) import Control.Monad.Trans.State (gets, modify)
import Data.Maybe (fromJust) import Data.Maybe (fromJust)
import Lens.Micro ((^.)) import Lens.Micro ((^.), (.~), (?~), (%~), to)
import qualified UI.NCurses as C import qualified UI.NCurses as C
import Mtlstats.Actions import Mtlstats.Actions
@@ -69,8 +69,14 @@ confirmCreateGoalieC = Controller
, handleController = \e -> do , handleController = \e -> do
case ynHandler e of case ynHandler e of
Just True -> do Just True -> do
modify addGoalie gid <- gets (^.database.dbGoalies.to length)
join $ gets (^.progMode.createGoalieStateL.cgsSuccessCallback) cb <- gets (^.progMode.createGoalieStateL.cgsSuccessCallback)
modify
$ (progMode.editGoalieStateL
%~ (egsSelectedGoalie ?~ gid)
. (egsMode .~ EGLtGames True)
. (egsCallback .~ cb))
. addGoalie
Just False -> Just False ->
join $ gets (^.progMode.createGoalieStateL.cgsFailureCallback) join $ gets (^.progMode.createGoalieStateL.cgsFailureCallback)
Nothing -> return () Nothing -> return ()