sorted the high score list in decreasing order of wins

creswick · Oct 5, 2012 · b8c4dbd · b8c4dbd
1 parent 1da5afb
commit b8c4dbd
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/Server.hs b/src/Server.hs
@@ -4,8 +4,9 @@ module Server (serverMain) where
 import Control.Concurrent
 import Control.Exception
 import Control.Monad
-import Data.List (intercalate)
+import Data.List (intercalate, sortBy)
 import Data.Foldable (for_)
+import Data.Function (on)
 import Data.Maybe (fromMaybe)
 import Data.Time.Clock (diffUTCTime, getCurrentTime)
 import Graphics.Gloss.Data.Point
@@ -180,7 +181,7 @@ updateServerWorld hs t w
                             $ commas (map playerUsername winners) ++ " wins!"
                    announce hs
                       $ ServerMessage
-                      $ commas $ map prettyScore ps
+                      $ commas $ map prettyScore $ reverse $ sortBy (compare `on` playerScore) ps
                    return ps
 
         npcs' <- mapM (updateNPC hs t True) $ serverNpcs    w