From 3a71dc1e62b336c2d0122000592b51d405795472 Mon Sep 17 00:00:00 2001 From: Jonathan Lamothe Date: Thu, 2 Jan 2020 23:50:21 -0500 Subject: [PATCH] add line numbers to lifetime goalie report --- src/Mtlstats/Report.hs | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/src/Mtlstats/Report.hs b/src/Mtlstats/Report.hs index aabfe6c..4894957 100644 --- a/src/Mtlstats/Report.hs +++ b/src/Mtlstats/Report.hs @@ -148,7 +148,7 @@ yearToDateStatsReport width s = let in playerReport width "YEAR TO DATE" True False playerStats ++ [""] - ++ goalieReport width True goalieStats + ++ goalieReport width True False goalieStats lifetimeStatsReport :: Int -> ProgState -> [String] lifetimeStatsReport width s = let @@ -163,7 +163,7 @@ lifetimeStatsReport width s = let in playerReport width "LIFETIME" False True playerStats ++ [""] - ++ goalieReport width False goalieStats + ++ goalieReport width False True goalieStats gameDate :: GameState -> String gameDate gs = fromMaybe "" $ do @@ -251,9 +251,10 @@ filteredPlayerReport width label criteria showTotals lineNumbers ps = let goalieReport :: Int -> Bool + -> Bool -> [(Goalie, GoalieStats)] -> [String] -goalieReport width showTotals goalieData = let +goalieReport width showTotals lineNumbers goalieData = let olayText = if showTotals then "GOALTENDING TOTALS" else "" @@ -292,7 +293,12 @@ goalieReport width showTotals goalieData = let summary = replicate 2 (CellText "") ++ rowCells tData - in map (centre width) + lnOverlay = if lineNumbers + then "" : [right 2 $ show x | x <- [(1 :: Int)..]] + else repeat "" + + in map (\(ln, line) -> overlay ln $ centre width line) + $ zip lnOverlay $ overlayLast olayText $ complexTable ([right, left] ++ repeat right) $ header : body ++ if showTotals