diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-17 06:22:55 +0900 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-17 06:22:55 +0900 |
commit | 6263dbb77b3956328d503e27dd70e531238b27ff (patch) | |
tree | 2219c5f1774ffa63bae3443dbcad6feb29b9fd53 | |
parent | 97672776fdc7e2ff61fa50b21846104dc3e94c2f (diff) | |
download | sariulclocks-6263dbb77b3956328d503e27dd70e531238b27ff.tar.gz |
deduct 20 points at the end of the week, not 10
-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 |