From 18683c1c6edbe883ed863bcf124acb88c0111cc7 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Wed, 15 Jan 2020 01:05:45 -0500 Subject: [PATCH] implemented Mtlstats.Control.EditStandings.valsFor --- src/Mtlstats/Control/EditStandings.hs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/Mtlstats/Control/EditStandings.hs b/src/Mtlstats/Control/EditStandings.hs index 02e6c3a..71450ae 100644 --- a/src/Mtlstats/Control/EditStandings.hs +++ b/src/Mtlstats/Control/EditStandings.hs @@ -46,4 +46,10 @@ header = do return $ C.drawString $ unlines $ table ++ [""] valsFor :: GameStats -> [Int] -valsFor = undefined +valsFor gs = + [ gs^.gmsWins + , gs^.gmsLosses + , gs^.gmsOvertime + , gs^.gmsGoalsFor + , gs^.gmsGoalsAgainst + ]