diff options
Diffstat (limited to 'src/sariulccron.hs')
| -rw-r--r-- | src/sariulccron.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/sariulccron.hs b/src/sariulccron.hs index 394909e..2455ebc 100644 --- a/src/sariulccron.hs +++ b/src/sariulccron.hs @@ -18,7 +18,7 @@ import Utils.ScoresFile --- meaty functions weeklyCron :: ScoresList -> ScoresList -weeklyCron scores = ((resetTime . deductPoints 10) <$> take 3 sortedScores) +weeklyCron scores = ((resetTime . deductPoints 20) <$> take 3 sortedScores) ++ (resetTime <$> drop 3 sortedScores) where sortedScores = sortBy (flip $ (compare `on` (scoreTimeWasted . snd))) scores |