From 6263dbb77b3956328d503e27dd70e531238b27ff Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Fri, 17 Apr 2015 06:22:55 +0900
Subject: deduct 20 points at the end of the week, not 10

---
 src/sariulccron.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3