diff options
Diffstat (limited to 'src/sariulccron.hs')
-rw-r--r-- | src/sariulccron.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs index b58599d..7aad948 100644 --- a/src/sariulccron.hs +++ b/src/sariulccron.hs @@ -16,10 +16,11 @@ import Utils.ScoresFile --- meaty functions weeklyCron :: ScoresList -> ScoresList -weeklyCron scores = (resetTime . deductPoints 10) <$> take 3 sortedScores - ++ drop 3 sortedScores +weeklyCron scores = ((resetTime . deductPoints 10) <$> take 3 sortedScores) + ++ (resetTime <$> drop 3 sortedScores) where - sortedScores = sortBy (compare `on` (scoreTimeWasted . snd)) scores + sortedScores = reverse $ + sortBy (compare `on` (scoreTimeWasted . snd)) scores scoreTimeWasted :: Score -> Int scoreTimeWasted (Score _ x) = x |