From 392d354b8e4802ca8f83129260959bccd5a43aab Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Sat, 21 Mar 2015 22:17:13 +0900
Subject: make weeklyCron slightly more efficient

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

diff --git a/src/sariulccron.hs b/src/sariulccron.hs
index d723935..c45db0a 100644
--- a/src/sariulccron.hs
+++ b/src/sariulccron.hs
@@ -21,8 +21,7 @@ weeklyCron        :: ScoresList -> ScoresList
 weeklyCron scores = ((resetTime . deductPoints 10) <$> take 3 sortedScores)
                     ++ (resetTime <$> drop 3 sortedScores)
   where
-    sortedScores  = reverse $
-                    sortBy (compare `on` (scoreTimeWasted . snd)) scores
+    sortedScores  = sortBy (flip $ (compare `on` (scoreTimeWasted . snd))) scores
 
 scoreTimeWasted             :: Score -> Int
 scoreTimeWasted (Score _ x) = x
-- 
cgit v1.2.3