From 758dc868ec1184ee5e687ef9fef610f49d0f278e Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Tue, 12 Nov 2019 23:38:40 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditGoalie.header --- src/Mtlstats/Control/EditGoalie.hs | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/Control/EditGoalie.hs b/src/Mtlstats/Control/EditGoalie.hs index 12f2fa6..e4fcc8c 100644 --- a/src/Mtlstats/Control/EditGoalie.hs +++ b/src/Mtlstats/Control/EditGoalie.hs @@ -23,6 +23,7 @@ along with this program. If not, see . module Mtlstats.Control.EditGoalie (editGoalieC) where +import Data.Maybe (fromMaybe) import Lens.Micro ((^.)) import UI.NCurses as C @@ -31,6 +32,7 @@ import Mtlstats.Menu.EditGoalie import Mtlstats.Prompt import Mtlstats.Prompt.EditGoalie import Mtlstats.Types +import Mtlstats.Util -- | Controller/dispatcher for editing a 'Goalie' editGoalieC :: EditGoalieState -> Controller @@ -113,4 +115,23 @@ ltTiesC :: Controller ltTiesC = undefined 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) + , "" + ]