diff options
Diffstat (limited to 'src/sariulccron.hs')
| -rw-r--r-- | src/sariulccron.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs index d723935..c45db0a 100644 --- a/src/sariulccron.hs +++ b/src/sariulccron.hs @@ -21,8 +21,7 @@ weeklyCron :: ScoresList -> ScoresList weeklyCron scores = ((resetTime . deductPoints 10) <$> take 3 sortedScores) ++ (resetTime <$> drop 3 sortedScores) where - sortedScores = reverse $ - sortBy (compare `on` (scoreTimeWasted . snd)) scores + sortedScores = sortBy (flip $ (compare `on` (scoreTimeWasted . snd))) scores scoreTimeWasted :: Score -> Int scoreTimeWasted (Score _ x) = x |