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 + ]