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

implemented Mtlstats.Control.EditGoalie.header

This commit is contained in:
Jonathan Lamothe 2019-11-12 23:38:40 -05:00
parent 3c9b7dd989
commit 758dc868ec
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
src/Mtlstats/Control/EditGoalie.hs
View File

@ -23,6 +23,7 @@ along with this program. If not, see <https://www.gnu.org/licenses/>.
module Mtlstats.Control.EditGoalie (editGoalieC) where module Mtlstats.Control.EditGoalie (editGoalieC) where
import Data.Maybe (fromMaybe)
import Lens.Micro ((^.)) import Lens.Micro ((^.))
import UI.NCurses as C import UI.NCurses as C
@ -31,6 +32,7 @@ import Mtlstats.Menu.EditGoalie
import Mtlstats.Prompt import Mtlstats.Prompt
import Mtlstats.Prompt.EditGoalie import Mtlstats.Prompt.EditGoalie
import Mtlstats.Types import Mtlstats.Types
import Mtlstats.Util
-- | Controller/dispatcher for editing a 'Goalie' -- | Controller/dispatcher for editing a 'Goalie'
editGoalieC :: EditGoalieState -> Controller editGoalieC :: EditGoalieState -> Controller
@ -113,4 +115,23 @@ ltTiesC :: Controller
ltTiesC = undefined ltTiesC = undefined
header :: ProgState -> C.Update () header :: ProgState -> C.Update ()
header = undefined header s = C.drawString $ fromMaybe "" $ do
gid <- s^.progMode.editGoalieStateL.egsSelectedGoalie
g <- nth gid $ s^.database.dbGoalies
Just $ unlines
[ " Goalie number: " ++ show (g^.gNumber)
, " Goalie name: " ++ g^.gName
, " YTD games played: " ++ show (g^.gYtd.gsGames)
, " YTD mins played: " ++ show (g^.gYtd.gsMinsPlayed)
, " YTD goals allowed: " ++ show (g^.gYtd.gsGoalsAllowed)
, " YTD wins: " ++ show (g^.gYtd.gsWins)
, " YTD losses: " ++ show (g^.gYtd.gsLosses)
, " YTD ties: " ++ show (g^.gYtd.gsTies)
, " Lifetime games played: " ++ show (g^.gLifetime.gsGames)
, " Lifetime mins played: " ++ show (g^.gLifetime.gsMinsPlayed)
, "Lifetime goals allowed: " ++ show (g^.gLifetime.gsGoalsAllowed)
, " Lifetime wins: " ++ show (g^.gLifetime.gsWins)
, " Lifetime losses: " ++ show (g^.gLifetime.gsLosses)
, " Lifetime ties: " ++ show (g^.gLifetime.gsTies)
, ""
]