implemented Mtlstats.Control.EditStandings.valsFor

2020-01-15 01:05:45 -05:00 · 2020-01-15 01:05:45 -05:00 · 18683c1c6e
parent 107ed507e2
commit 18683c1c6e
1 changed files with 7 additions and 1 deletions
--- 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
+  ]