adyxax/hsbot
Archived
1
0
Fork 0
Code Issues Activity

Added score sorting for the duck module

Browse source
This commit is contained in:
Julien Dessaux 2011-09-02 16:38:27 +02:00
parent f698fd2183
commit f1ce0cfee0
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Hsbot/Plugin/Duck.hs
View file

@ -13,6 +13,7 @@ import Data.Acid
import qualified Data.List as L import qualified Data.List as L
import qualified Data.Map as M import qualified Data.Map as M
import Data.Maybe import Data.Maybe
import Data.Ord ()
import Data.SafeCopy import Data.SafeCopy
import Data.Typeable import Data.Typeable
import qualified Network.IRC as IRC import qualified Network.IRC as IRC
@ -151,8 +152,13 @@ bangs = [ "PAN", "PAN!" ]
printDuckStats :: String -> StatDB -> Plugin (Env IO) () printDuckStats :: String -> StatDB -> Plugin (Env IO) ()
printDuckStats channel statDB = do printDuckStats channel statDB = do
sendLine "Duck slaughter simulator - Hall of Fame" sendLine "Duck slaughter simulator - Hall of Fame"
mapM_ (sendLine . buildLine) $ M.toList (nickStats statDB) mapM_ (sendLine . buildLine) . reverse . L.sortBy scoreSort $ M.toList (nickStats statDB)
where where
scoreSort :: (String, Int) -> (String, Int) -> Ordering
scoreSort (_, s1) (_,s2)
| s1 < s2 = LT
| s1 > s2 = GT
| otherwise = EQ
buildLine :: (String, Int) -> String buildLine :: (String, Int) -> String
buildLine (nick, score) = concat [ nick, ": ", show score ] buildLine (nick, score) = concat [ nick, ": ", show score ]
sendLine :: String -> Plugin (Env IO) () sendLine :: String -> Plugin (Env IO) ()