don't show player zero in reports

2019-12-28 20:59:04 -05:00
parent 89fe646d0e
commit 2840298467
2 changed files with 6 additions and 2 deletions
@@ -189,8 +189,9 @@ filteredPlayerReport
  -> [(Player, PlayerStats)]
  -> [String]
 filteredPlayerReport width label criteria showTotals ps = let
-  tStats = foldl addPlayerStats newPlayerStats $ map snd ps
-  fps    = filter criteria ps
+  tStats    = foldl addPlayerStats newPlayerStats $ map snd ps
+  criteria' = (&&) <$> criteria <*> \(p, _) -> p^.pNumber /= 0
+  fps       = filter criteria' ps

  rHeader =
    [ centre width (label ++ " STATISTICS")