diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-21 19:17:50 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-03-21 19:17:54 +0900 |
| commit | 2d0bbc54e12039a1c6e4134b39fa83985af73322 (patch) | |
| tree | c8c270aae464295cea7d6d56e72ba9f2a5c2ad02 | |
| parent | d6181313f9d286e8e3f88ef4109d0857b4407eb8 (diff) | |
| download | sariulclocks-2d0bbc54e12039a1c6e4134b39fa83985af73322.tar.gz | |
fix weeklyCron
| -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 |