From 2d0bbc54e12039a1c6e4134b39fa83985af73322 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sat, 21 Mar 2015 19:17:50 +0900 Subject: fix weeklyCron --- src/sariulccron.hs | 7 ++++--- 1 file 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 -- cgit v1.2.3