fingerprint/mtlstats
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge pull request #52 from mtlstats/hlint 

hlint suggestions
This commit is contained in:
Jonathan Lamothe 2019-12-17 11:27:41 -05:00 committed by GitHub
parent 0ecf899b56 55c8806186
commit be990538bc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/Mtlstats/Report.hs
View File

@ -24,6 +24,7 @@ module Mtlstats.Report (report, gameDate) where
import Data.List (sortOn)
import qualified Data.Map as M
import Data.Maybe (fromMaybe, mapMaybe)
import Data.Ord (Down (Down))
import Lens.Micro ((^.))
import Mtlstats.Config
@ -136,8 +137,7 @@ yearToDateStatsReport :: Int -> ProgState -> [String]
yearToDateStatsReport width s = let
db = s^.database
playerStats = reverse
$ sortOn (psPoints . snd)
playerStats = sortOn (Down . psPoints . snd)
$ map (\p -> (p, p^.pYtd))
$ filter playerIsActive
$ db^.dbPlayers
@ -154,8 +154,7 @@ lifetimeStatsReport :: Int -> ProgState -> [String]
lifetimeStatsReport width s = let
db = s^.database
playerStats = reverse
$ sortOn (psPoints . snd)
playerStats = sortOn (Down . psPoints . snd)
$ map (\p -> (p, p^.pLifetime))
$ db^.dbPlayers