made standings table prettier

This commit is contained in:
Jonathan Lamothe 2020-01-16 19:58:07 -05:00
parent d5de834510
commit 717f2d5932

View File

@ -54,9 +54,9 @@ header = do
let
home = db^.dbHomeGameStats
away = db^.dbAwayGameStats
table = numTable ["Wins", "Losses", "Overtime", "Goals for", "Goals against"]
[ ( "Home", valsFor home )
, ( "Road", valsFor away )
table = numTable [" W", " L", " OT", " GF", " GA"]
[ ( "HOME", valsFor home )
, ( "ROAD", valsFor away )
]
return $ C.drawString $ unlines $ table ++ [""]