diff options
| -rw-r--r-- | HsBot.hs | 82 |
1 files changed, 41 insertions, 41 deletions
@@ -40,45 +40,12 @@ instance Ord User where class Render a where render :: a -> String instance Render User where - render user = - userName user ++ - ": " ++ (userKarma user) ++ - " (rank " ++ (show $ userRank user) ++ "/" ++ (show numUsers) ++ "; " ++ - (show $ userPts user) ++ "pts; " ++ (show $ userPerc user) ++ "%)" - -makeTestConf :: Conf -makeTestConf = Conf { - line = "", - loggs = [], - maxLoggs = 10, - users = [ - User "thunder" 100, - User "otto" 1, - User "rantanplan" 3, - User "rantanplan2" 3, - User "icefox2" 11, - User "icefox" 10, - User "foobar" 5, - User "foobar1" 5, - User "foobar2" 5, - User "foobar3" 5, - User "foobar4" 5, - User "foobar5" 5, - User "foobar6" 5, - User "openfire" 2 - ], - karmas = [ - Karma "God" 20 90, - Karma "Guru" 10 80, - Karma "Nerd" 10 70, - Karma "Expert" 5 60, - Karma "Geek" 3 40, - Karma "Advanced" 0 20, - Karma "Cool dude" 0 0 - ] } - -makeConf :: Conf -makeConf = makeTestConf + render user = userName user ++ ": " ++ + (userKarma user) ++ " (rank " ++ + (show $ userRank user) ++ "/" ++ + (show numUsers) ++ "; " ++ + (show $ userPts user) ++ "pts; " ++ + (show $ userPerc user) ++ "%)" loggMessage :: String -> Conf -> Conf loggMessage message conf = let l = message : (loggs conf) @@ -154,8 +121,7 @@ split (c:cs) delim -- Returns a list of all strings to increase or decrease the karma of matches :: String -> String -> [String] -matches search string = - uniq $ case m' $ occ search string of +matches search string = uniq $ case m' $ occ search string of (list, "") -> list (list, rest) -> list ++ (matches search rest) where occ :: String -> String -> Maybe (String, String) @@ -206,3 +172,37 @@ main = do putStrLn $ "Welcome to " ++ version ++ " (Enter !h for help)" loop makeConf +makeTestConf :: Conf +makeTestConf = Conf { + line = "", + loggs = [], + maxLoggs = 10, + users = [ + User "thunder" 100, + User "otto" 1, + User "rantanplan" 3, + User "rantanplan2" 3, + User "icefox2" 11, + User "icefox" 10, + User "foobar" 5, + User "foobar1" 5, + User "foobar2" 5, + User "foobar3" 5, + User "foobar4" 5, + User "foobar5" 5, + User "foobar6" 5, + User "openfire" 2 + ], + karmas = [ + Karma "God" 20 90, + Karma "Guru" 10 80, + Karma "Nerd" 10 70, + Karma "Expert" 5 60, + Karma "Geek" 3 40, + Karma "Advanced" 0 20, + Karma "Cool dude" 0 0 + ] } + +makeConf :: Conf +makeConf = makeTestConf + |